Sub supprimer()
With Worksheets("Historic")
.Unprotect "Ro0892"
On Error Resume Next
.Range("A2:A2000").Find(Worksheets("Recherche").Range("T1"), LookAt:=xlWhole).EntireRow.Delete
If Err <> 0 Then MsgBox Worksheets("Recherche").Range("T1") & vbLf & "Numéro inexistant" & vbLf & "ou déjà supprimé.", , "Information"
.Protect "Ro0892"
End With
End Sub