[attachment=0]TEST.xlsm[/attachment][attachment=1]CA_2015_GIS - Copie.xlsx[/attachment]

Désolé pour l'incompréhension de mon sujet. je reformule dans mon contexte et avec les pièces jointes qui vont avec.

Voici le cas auquel je suis confronté:

Mon classeur test.xlsm est le classeur dans lequel l'utilisateur remplira les données concernant un client qui pourrais avoir 1 ou plusieurs véhicules.
J'aimerais pouvoir rajouter dans mon 2ème classeur CA_2015_GIS - Copie.xlsx tout les vehicules du client.

Ce que j'ai fais:
J'ai réussi a faire pour la 1ère voiture du tout premier client.
Ce que j'aimerais rajouter:
- Si la 2ème feuille contient deja des données rajouter les nouvelles données a la suite
- Rajouter une boucle qui s'applique pour rajouter le deuxieme vehicule du client a la suite du premier automatiquement.

En vous remerciant d'avance...

CORDIALEMENT

Extrait de mon code:

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 - Copie.xlsx"
        Windows("CA_2015_GIS - Copie.xlsx").Activate
        Sheets("CA " & (InputBox("MOIS D'ENREGISTREMENT (JANVIRE, FEVRIER...)", "MOIS")) & " 2015").Select
        '+---------------------------------+
        '|         DEBUT DE LA BOUCLE      |
        '+---------------------------------+
        Windows("TEST.xlsm").Activate
        Sheets("DOSSIER").Select
        Range("E10").Select ' COPIE DATE
        Application.CutCopyMode = False
        Selection.Copy
        Windows("CA_2015_GIS - Copie.xlsx").Activate
        Range("A7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Windows("TEST.xlsm").Activate
        Range("E11").Select 'COPIE NUM DOSSIER
        Application.CutCopyMode = False
        Selection.Copy
        Windows("CA_2015_GIS - Copie.xlsx").Activate
        Range("B7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Windows("TEST.xlsm").Activate
        Range("E13").Select 'COPIE NOMS CLIENT
        Application.CutCopyMode = False
        Selection.Copy
        Windows("CA_2015_GIS - Copie.xlsx").Activate
        Range("C7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Windows("TEST.xlsm").Activate
        Range("L8").Select 'MARQUE
        Application.CutCopyMode = False
        Selection.Copy
        Windows("CA_2015_GIS - Copie.xlsx").Activate
        Range("D7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Windows("TEST.xlsm").Activate
        Range("M8").Select 'MODELE
        Application.CutCopyMode = False
        Selection.Copy
        Windows("CA_2015_GIS - Copie.xlsx").Activate
        Range("E7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Windows("TEST.xlsm").Activate
        Range("N8").Select 'CHASSIS
        Application.CutCopyMode = False
        Selection.Copy
        Windows("CA_2015_GIS - Copie.xlsx").Activate
        Range("F7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
End Sub