Dim i As Integer
'boucle qui part de la dernière cellule renseignée de la colonne F et l'on
'remonte vers la ligne 1
For i = Range("F65536").End(xlUp).Row To 1 Step -1
' si la cellule de la colonne de la ligne i de la colonne F, contient TOTO '
'ou bien si la cellule de cette même ligne de la colonne D commence par 1111
'alors la ligne i est supprimée
If Cells(i, 6).Value Like "*TOTO*" Or Cells(i, 4).Value Like "1111*" Then _
Rows(i).Delete
Next i