Copier Formules

Salut,

J'ai fait une macro pour rassembler 12 fichiers , mais après que le fichier
est rassemblé, j'ai perdu toutes les formules que j'avait avant.
C'est-a-dire, j'ai copié que les valeurs.....

J'ai essayé plusier types de macro:

l'original qui copier les valeurs et le format
For ligneCourante = PremiereLigneFichiers To maxLineIndex
ws.Rows(ligneCourante).Copy 'accede l'autre fichier
Sheets(OngletCourant).Activate
Rows(firstLineTaskRecap).Select ' selectione la premiere ligne vide
ActiveSheet.Paste
firstLineTaskRecap = firstLineTaskRecap + 1

Next ligneCourante


Apres j'ai essayer de changer
ActiveSheet.Paste pour ActiveSheet.PasteSpecial
et j'ai eu de problemes.

ActiveSheet.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

J'ai essayer de changer pour Selection.PasteSpecial, RIEN a changé

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False



Apres j'ai essayé de laisser le meme code en changeant le mode de copy,
alors j'ai remplancé

ws.Rows(ligneCourante).Copy pour

ws.Rows(ligneCourante).select
selection.Copy

et maintenant il colle des lignes vides.

Alors , vous pourriez m'aider.????????????