Copier des cellules "si" et coller seulement ces cellules

Bonjour à tous,

Je viens chercher de l'aide de votre côté, étant donné mes nombreuses heures de recherches sans succès.

Je vous explique l'objectif de ma macro :

Je pars d'une feuille "base", sur laquelle je souhaite copier les cellules des colonnes A, B, C, et D si les cellules de la colonne J sont remplis par "AB". Je précise que là base finale sera sur 1000 lignes, mais que les résultats de la colonne J ne seront pas toujours les mêmes.

Ensuite, je dois coller ces cellules sur la feuilles "synthèse", à la suite. Mais c'est ici que se pose mon problème. Je souhaite ne coller que les 4 premières cellules de la ligne, étant donné que dans le fichier final, les cellules suivantes de la feuille synthèse seront remplies.

Voici donc le code que j'ai déjà développé :

Sub Macro1()

Dim Cellule As Range

Sheets("Base").Select
For Each Cellule In Range("J3:J" & Range("J1003").End(3).Row)
    If Cellule.Value = "AB" Then

        With Sheets("Synthèse")
        Range("A" & Cellule.Row & ":D" & Cellule.Row).Copy .Rows(.Range("A19").End(3).Row + 1)
        End With

    End If
Next Cellule

End Sub

Cependant, ce code execute bien la condition, mais colle la ligne entière (ce qui est normal étant donné l'utilisation des rows vous me direz). Cependant je ne parviens pas à réécrire ce code... Je suis débutant en VBA et je pense que j'atteins mes limites.

Merci d'avance

Finalement j'ai pu trouver de l'aide sur un autre forum !

Pour ceux que ça intéresse, la dernière ligne est à modifier par celle-ci :

Range("A" & Cellule.Row & ":D" & Cellule.Row).Copy .Range("A19").End(3).Offset(1)

Bonne soirée à tous