A voir également:
- Supprimer 3 lignes après un résultat
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Impossible de supprimer un fichier - Guide
- Supprimer pub youtube - Accueil - Streaming
- Comment supprimer un compte gmail - Guide
2 réponses
f894009
Messages postés
17239
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
10 février 2025
1 713
28 juil. 2013 à 09:31
28 juil. 2013 à 09:31
Bonjour,
Bonne suite
Sub Essai() Dim i As Integer With ThisWorkbook.Sheets("Feuil1") For i = .Range("c" & .Rows.Count).End(xlUp).Row To 2 Step -1 If .Range("c" & i).Value = "Patate" Then .Rows(i & ":" & i + 3).Delete End If Next i End With End Sub
Bonne suite