Sub test()
Dim B As String
B = Feuil2.Range('B11')
With Feuil1.Columns('A') 'recherche en colonne A
'recherche la valeur de la variable B et supprime la ligne
If Not .Find(B ) Is Nothing Then Range(.Find(B ).Address).EntireRow.Delete
End With
End Sub