Suppr des lignes entières selon contenu sur plusieurs colonn

Bonjour à tous,

Je suis nouveau sur ce forum et je viens vers vous en espérant que vous pourrez m'aider pour mon problème.

Je veux supprimer toutes les lignes de ma feuilles excel contenant un "M" mais ceci sur les colonnes de A:AY. J'ai créer une macro que j'ai trouver sur un autre forum qui fonctionne mais uniquement sur une colonne. J'ai tout essayé pour faire fonctionner sur toutes les colonnes en une seule fois mais sans succès. Voici ma macro pour une colonne :

Sub DelEditeur()

Dim i As Integer

With ThisWorkbook.Sheets("Feuil1")

'Précisez le nom de votre feuille

For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1

'je travaille sur la colonne c

'Rows.count permet de retourner le nombre de ligne de la plage range

If .Range("A" & i).Value = "M" Then

.Rows(i).Delete

End If

Next i

End With

End Sub

Je vous joint le fichier.

Je vous remercie énormément de votre aide.

Bonsoir,

Sub DelEditeur()
    Dim n%, i%
    Application.ScreenUpdating = False
    With Worksheets("Feuil1")
        n = .Range("A" & .Rows.Count).End(xlUp).Row
        For i = 2 To n
            If WorksheetFunction.CountIf(.Range("A" & i).Resize(, 51), "M") > 0 Then .Range("A" & i).Clear
        Next i
        .Range("A2:A" & n).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End With
End Sub

Cordialement.

Bonsoir MFerrand,

Cela fonctionne parfaitement, j'ai encore beaucoup de progrès à faire mais le VBA me plaît bien je vais commencer à m'initier là-dessus.

Merci encore en tout cas, ça va me faciliter la vie et très bon week-end.

je vais commencer à m'initier là-dessus.

Excellente idée... !

Note que pour des suppressions ligne par ligne, on commence toujours par la fin car si l'on commence par le début, on fait varier les lignes en aval...

Et que chaque fois que l'on peut faire la suppression en bloc, au lieu de ligne par ligne, ce sera pus rapide...

Cordialement.

Ah oui très bon conseil, j'en prends note, je vous remercie.

Au plaisir d'avoir à nouveau des conseils et à bientôt.