VBA copie les lignes qui répondent à des critères d'une autre feuille

Je suis nouveau sur le VBA...je veux copier une ligne de la feuille Sheet2 à la feuille Sheet1 si la première cellule de cette ligne dit X et ensuite le faire pour toutes les lignes qui répondent à ce critère. J'ai une erreur dans la condition Si...je ne sais pas comment le résoudre.

Sub LastRowInOneColumn()
'Find the last used row in a Column: column A in this example
    Worksheets("Sheet2").Activate
    Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    MsgBox (LastRow)
    For i = 1 To LastRow
    If Worksheet.Cells(i, 1).Value = "X" Then
    ActiveSheet.Row.Value.Copy _
    Destination:=Hoja1
    End If
    Next i
 End Sub
Essayez de AUTOFILTER
Je voudrais, si Id savait programmation...j'ai été dans l'apprentissage de VBA pour...deux jours maintenant 🙂 c'est un moyen pour que je puisse comprendre ce qu'est le code sur...

OriginalL'auteur Anca | 2014-01-12