Bonjour forum,
Je suis en mode arrêt en ce moment parce que je veux que mon code puisse supprimer toutes les lignes dont les cellules contient les mots commencent par les lettres FR, EN, ES.
Voici mon code:
Sub Suppr()
Dim B, CAs Range
Set B = Range([A], Cells(Range("A" & Rows.Count).End(xlUp).Row, 1))
Do
Set C = B.Find("FR", "EN", "FR", xlWhole)
If C Is Nothing Then Exit Sub
C.EntireRow.Delete
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Loop
End Sub
Merci pour votre aide.