Copie format cellule

[Belligou]

Bonjour,

Grâce à l'aide de Tibo ( encore merci ), mon fichier (joint) "Modules" a considérablement évolué. Mais un tableau Excel sans couleurs ..... ça ne donne pas envie.
Tout est dans le fichier :
Un tableau A "Origine" , avec des formats mis manuellement et d'autres par MFC,
Un tableau B "Extraction" sur un nombre de test et dont je souhaite copier les formats de cellules du tableau A,
Un tableau C " Par n° de modules " , fonction du tableau B, dont je souhaite également copier les formats du tableau B.
J'ai cherché dans le forum et j'ai trouvé cette macro qui pourrait correspondre éventuellement à mon besoin mais ,étant nul en VBA, ne sais pas l'adapter à mon fichier :

Sub a()
Sheets("Données").Range("B4😀26").Copy
With Sheets("Récap")
.Range("B4").PasteSpecial xlValues
.Range("B4😀26").SpecialCells(xlCellTypeConstants, 23).Borders.LineStyle = xlContinuous
End WithEnd Sub

Je souhaiterais que la copie se fasse de façon automatique.

Merci de votre aide.

Belligou

 

[Belligou]

Re : Copie format cellule

Grrrrrrrrrrrrrrr !! J'ai du faire une fausse manip' en recopiant la macro
Je ne sais d'où viennent ces smileys !

Belligou