Macro Un mot d'une cellule fait supprimer la ligne du dessous

Bonjour,

commence par nettoyer ta feuille en supprimant les lignes vides (elles ne le sont pas vraiment) jusqu'à 10000 et les colonnes vides jusqu'à X.
Et à faire copier collage spécial valeur sur la colonne I car tu fais référence à la ligne suivante et tu auras des #REF.

Sub effLigCouple()
    Dim lig As Long
    For lig = Cells(Rows.Count, "H").End(xlUp).Row To 2 Step -1
        If Cells(lig, "H") = "couple" Then
            Rows(lig + 1).Delete
            Cells(lig, "A").Resize(, 8).ClearContents
        End If
    Next lig
End Sub

eric

Merci BEAUCOUP eriiic

Cela fonctionne très bien
Si j"ai bien compris
Rows(lig + 1).Delete=la ligne en dessous de couple
Cells(lig, "A").Resize(, 8).ClearContents=la ligne"A" efface jusque"H"
Pour les colonnes je m'en sert jusqu'a "Q" pour préparer les étiquettes.
Mais si tu peut me donner la façon pour enlever les colonnes en trop .
Pour supprimer les lignes vide je l'exécute avec la Macro : Sébastien Mathier
et c'est vrai je ne l'avais pas fait dans l'exemple
Je te remercie encore pour ta gentillesse et ton travail
MERCI micheleliane

Merci pour tout eriiic

maintenant j'ai de quoi je pense finir avant la manifestation

GRAND MERCI a vous tous qui vous occupés des autres aussi rapidement.

J'espère apprendre petit a petit.

MERCI EST BONNE APRES MIDI