Cumul données entre 2 fichiers

Bonjour à tous,

Je suis débutant en macro et je m’excuse d’avance pour les grosses erreurs que j’ai pu dans le programme ci-dessous. J’essaie depuis ce matin de finaliser une macro mais je n’y arrive pas…

J’ai un fichier « Cumul 2016 » et pour l’instant 4 autres qui s’appellent janvier, février, mars avril. Dans ces fichiers, on retrouve toujours le même tableau. Mon idée est de créer une macro qui va copier et coller les données dans le fichier « Cumul 2016 ». Il faudra toutefois conserver les données déjà remplies dans le tableau lors de l’intégration des nouvelles données.

Pour ne pas être embêté avec les chemins, je pensais à faire appel à un écran de dialogue qui me permettrait de sélectionner directement le fichier à ajouter. Mais je suis bloqué lorsque j’essaie de copier les données du fichier ouvert (Janvier ou février ou ….) puis le coller dans le fichier « Cumul 2016 ».

Pouvez-vous me donner un coup de main pour la finaliser ?

Sub Importer()

Dim Cldestination As Workbook

Dim Fichier As String

Dim Msg, Style, Title, Help, Ctxt, Response, MyString

Fichier = Application.FindFilename(", *xlWindows", 0, "Importer votre fichier")

Set Cldestination = ActiveWorkbook

If Fichier = "Faux" Then

Msg = "Aucun fichier sélectionné. Veuillez recommencer SVP!"

Style = vbOKOnly ' Définit les boutons.

Title = "ALERTE" ' Définit le titre.

' Affiche le message.

Response = MsgBox(Msg, Style, Title)

Exit Sub

Else

End If

With Cldestination

Range("A65000").End(xlUp).Offset(1).Select

End With

With Workbook

Range ("A" & Range("A" & Rows.Count).End(xlUp)(2).Row)

End With

End With

End Sub