Sub test123()
Dim n As Integer
Dim rep As String
rep = InputBox("Quelle Famille souhaitez vous supprimer ?")
For n = Range("A65536").End(xlUp).Row To 11 Step -1
If InStr(Range("M" & n), rep) <> 0 Then Rows(n).Delete
If UCase(Left(Range("M" & n), 5)) = "SOMME" Then Rows(n).Font.Bold = True
Next n
End Sub