Corriger 1code pr copier des cellules d'1 classeur à 1 autre

Bonjour, pouvez vous m'aider à résoudre ce problème?

Je dois copier coller des données d’un classeur excel à un autre.

Le code suivant fonctionne parfaitement si je copie/colle toute une colonne dans une autre colonne d’un autre classeur,

Sub ac ()

Dim Fichier1

Fichier1 = Application.GetOpenFilename("Excel (*.xlsx), *.xlsx", , "Sélection du fichier a", , False)

If Fichier1 = False Then Exit Sub

Application.ScreenUpdating = False

With Workbooks.Open(Fichier1)

.Sheets("a").Columns("A:A").Copy ThisWorkbook.Sheets("b").Range("A1")

.Sheets("a").Columns("CD:CD").Copy ThisWorkbook.Sheets("b").Range("B1")

.Close

End With

End Sub

J’ai modifié le code de manière à copier les cellules de A2 jusqu’à la dernière ligne du fichier a dans les cellules de A3 jusqu’à la dernière ligne du fichier B, le code

Sub ac ()

Dim Fichier1

Fichier1 = Application.GetOpenFilename("Excel (*.xlsx), *.xlsx", , "Sélection du fichier a", , False)

If Fichier1 = False Then Exit Sub

Application.ScreenUpdating = False

With Workbooks.Open(Fichier1)

.Sheets("a").Range("A2", Range("A2").End(xlDown)).Copy ThisWorkbook.Sheets("b").Range("A3", Range("A3").End(xlDown))

.Close

End With

End Sub

Merci

.Sheets("a").Range("A2", .Sheets("a").Range("A2").End(xlDown)).Copy ThisWorkbook.Sheets("b").Range("A3")