i = 1
For counter = 1 To Rng.Rows.Count
'Recherche des libéllés contenant le mot SALAIRE ou Extourne et suppression de la ligne
If LCase(Rng.Cells(i)) Like "*extourne*" Or Rng.Cells(i) Like "*salaire*" Or Rng.Cells(i) Like "congés payés*" Then
Rng.Cells(i).EntireRow.Delete
Else
i = i + 1
End If
Next