Copier ligne de texte si condition

Bonjour à tous,

J'essais depuis un bon moment d'adapter une macro en boucle trouvé sur le forum pour mon utilisation, mais sans succès. Je suis débutant en VBA et je ne trouve pas ce qui cloche. Je doit copier dans la feuille Impression les lignes du tableau "Meeting superviseurs" de A à F si la case G de la même ligne contient "*Retard*". Est-ce qu'il y aurait une personne avec une solution? merci d'avance pour vos réponses.

Bonsoir Mat003,

Avec le filtre automatique :

Sub test()
    Application.ScreenUpdating = False
    With Sheets("Meeting superviseurs").Cells(1).CurrentRegion
        .Parent.AutoFilterMode = False
        With .Offset(1).Resize(.Rows.Count - 1)
            .AutoFilter 7, "*Retard*"
            .Offset(1).Copy Sheets("Impression").Range("a" & Rows.Count).End(xlUp)(2)
            .AutoFilter
        End With
    End With
    Application.ScreenUpdating = True
End Sub

klin89

Bonsoir Klin89,

Merci pour ta solution. Il y simplement un petit hic. Les rangés au complet se copie alors que j'ai besoin de la colonne A à F. Dans la ligne

".Offset(1).Copy Sheets("Impression").Range("a" & Rows.Count).End(xlUp)(2)" qu'est-ce qu'il faut que je changes pour y arriver?

re Mat003 ,

Comme ceci :

.Offset(1).Resize(, 6).Copy Sheets("Impression").Range("a" & Rows.Count).End(xlUp)(2)

klin89

Merci!! Ça fonctionne parfaitement!