Copier coller (d'une macro) et à la suite

Bonjour,

Merci beaucoup pour votre aide.

Je souhaite à l'aide d'un bouton, copier toutes les données (à partir de la ligne 2) qui seront présentes sur ma feuille "Import"

Puis les coller sur la feuille "Base de données"

Le collage se fera à partir de la première cellule vide de la colonne A (parce que ma feuille "base de données" peut être vide et ne contenir que les titres en ligne 1 ou elle peut contenir les titres en ligne 1 et d'autres données)

Le format des données sur les deux feuilles sont identiques.

Ci-joint un fichier

Bonjour Muqtadir, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim OI As Worksheet
Dim BD As Worksheet
Dim PL As Range
Dim DEST As Range

Set OI = Worksheets("Import")
Set BD = Worksheets("Base de données")
Set PL = OI.Range("A1").CurrentRegion
Set PL = PL.Offset(1, 0).Resize(PL.Rows.Count - 1, PL.Columns.Count)
Set DEST = BD.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0)
PL.Copy DEST
End Sub

Merci beaucoup,

je t'en dois une ça fonctionne parfaitement

tu gères