Bonjour,

S'il vous plaît j'aimerais réalisé une boucle qui récupère des données d'un tableau pour le mettre dans un autre. et a l'aide d'un msgbox l'utilisateur entre le nombre de fois que la boucle va être effectué. mon code marche très bien pour la première utilisation mais ensuite si je le repète il ne change pas de ligne donc copie les même données pouir les écraser encore. mais j'aimerais que si l'utilisateur demande que la boucle s'excecute 2 fois alors:

RESULTAT VOULU:

1ère boucle: le code copie les premiers données de la ligne A1 du tableau 1 et les copie a la suite du tableau 2 donc pas forcement A1 mais a la suite des données deja présente.

2ème boucle: le code descend automatiquement d'une ligne donc A2 du tableau 1 et les copie a la suite du tableau 2.

Je ne sais pas si j'ai été assez clair mais en vous remerciant d'avance ci dessous un extrait de mon code que je n'arrive pas a réaliser

CORDIALEMENT

Sub test_EXCEL()
        Dim NBRE As Integer
        NBRE = InputBox("ENTREZ LE NOMBRE DE VOITURE", "NBRE V") 'NOMBRE DE FOIS QU'ON REPETE LA BOUCLE
        Workbooks.Open Filename:="C:\Users\GIS\Desktop\GIS\CA_2015_GIS.xlsx"
        Windows("CA_2015_GIS.xlsx").Activate
        Sheets("CA " & (InputBox("MOIS D'ENREGISTREMENT (JANVIRE, FEVRIER...)", "MOIS")) & " 2015").Select
        '+---------------------------------+
        '|         DEBUT DE LA BOUCLE      |
        '+---------------------------------+
        Windows("HOME.xlsm").Activate
        Sheets("DOSSIER").Select
        Range("E10").Select ' COPIE DATE
        Application.CutCopyMode = False
        Selection.Copy
        Windows("CA_2015_GIS.xlsx").Activate
        Range("A7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Windows("HOME.xlsm").Activate
        Range("E11").Select 'COPIE NUM DOSSIER
        Application.CutCopyMode = False
        Selection.Copy
        Windows("CA_2015_GIS.xlsx").Activate
        Range("B7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Windows("HOME.xlsm").Activate
        Range("E13").Select 'COPIE NOMS CLIENT
        Application.CutCopyMode = False
        Selection.Copy
        Windows("CA_2015_GIS.xlsx").Activate
        Range("C7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
End Sub