Macro VBA

Bonjour,



Bonjour,

Je vous explique ma demande :

Je dois créer une macro capable de copier coller des données sur un tableau de synthèse.
Je suis novice sur ce sujet mais j'ai réussi à trouver une partie du code.

Ce code doit pouvoir, dans un même classeur, aller récupérer des données contenu sur des fiches normées et les coller sur ma feuille "Synthèse".

Les difficultés sont que :
1) 1 fiche doit être collée sur une seule ligne dans mon tableau et doit démarrée sur la colonne B
2) les données sont de types alpha-numériques
3) le nombre de fiches variables (jusqu'à 122)


voila le début de mon code même si il ne fonctionne pas comme je le voudrais :

Code: Tout sélectionner

Sub Test()

Dim TblFeuille
Dim I As Integer
Dim Lgn As Long


TblFeuille = Array("FICHE (1)", "FICHE (2)", "FICHE (3)", "FICHE (6)")

For I = 0 To UBound(TblFeuille)

With Worksheets("Synthèse")


Lgn = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Range(.Cells(Lgn, 1), .Cells(Lgn, 1)).Value = Worksheets(TblFeuille(I)).Range("C7:F7").Value

End With

Next I

End Sub



Ce code me permet bien d'aller charcher les données et de les coller mais en colonne A uniquement et sur un nombre déterminé de fiches.
Ci-joint le classeur en question
Merci d'avance pour votre aide