copie de formats de classeur a classeur

Bonjour,

j'aimerai copier des cellulles de classeur à classeur format compris

j'ai trouve une macro sur le site mais elle fonctionne que dans le classeur concerné.

Private Sub Worksheet_Activate()
For Each c In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23)
If Not c.Formula Like "*[+-/~*^]*" Then
a = Split(Mid(c.Formula, 2), "!")
If UBound(a) = 0 Then
Range(a(0)).Copy
Else
Sheets(a(0)).Range(a(1)).Copy
End If
c.PasteSpecial Paste:=xlPasteFormats
End If
Next c
End Sub

je suis pas une fleche en macro,

je joint 3 fichiers exemple c'est le fichier recap qui recupère toutCe lien n'existe plus

Ce lien n'existe plus

Ce lien n'existe plus

merci d'avance