Sub test()
Dim PROJET As String, c As Range
PROJET = ActiveWorkbook.ActiveSheet.Name
With Sheets("Sommaire")
Set c = .Range("A3:A10").Find(PROJET, , xlValues, xlWhole, , , False)
If Not c Is Nothing Then .Rows(c.Row).Delete
End With
ActiveSheet.Move After:=Workbooks("AutreClasseur.xls").Sheets(1)
End Sub