Copy sous condition

Bonjours a tous

Voilà un petit problème pour moi bien sur lol je suis un vrai novice sur Excel

Je voudrais copier certaine cellules d’une feuille 1 sur une autre feuille 2 que si une cellule de la feuille 1 contient un x

Dans mon fichier je voudrais copier les colonnes A-B-C-D-E-F et H de la feuil 1 sur la feuil 2 que si la cellule I de la feuil 1 contient un x

je vous en remerci par avance bonne journee a tous

Bonjour,

Avec un filtre

tu n'est pas obligé de mettre la colonne "i" dans la Feuil2

Sub Filtre()
Dim Lg
    Lg = Cells.Find("*", , , , xlByRows, xlPrevious).Row
        Range("q2") = "=i2=""x""" 'critère de filtre
    With Sheets("Feuil2")
        Range("a1:k" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Range("q1:q2"), CopyToRange:=.Range("a1:j1"), Unique:=False
        Range("q2").ClearContents
        .Activate
    End With
End Sub

Amicalement

Claude