copier et coller des fond de couleur

[jacques]

Bonjour à tous

je finalise mes tableaux (comptage cellule par couleur de fond)
et maintenant il ne me reste plus qu'une chose à faire:
j'utilise deux feuilles
Sur la une, je met les fonds de couleur qui m'interesse, le calcul par couleur se fait, pas de problème.
Sur la 2ème, je voudrais simplement coller avec liaison le fond de couleur (et uniquement le fond) de la cellule 'feuille1 A1' à un endroit par exemple en 'b4' de la feuille 2.

je sèche

merci d'avance

 

[Blunet]

Essaye ceci

worksheets('Feuil1').Range('A1').Copy: worksheets('Feuil2').Range('B4').Select
Selection.PasteSpecial Paste:=xlPasteFormats

 

[jacques]

Merci Blunet
mais je ne m'en sort pas
Voici ce que j'ai transcris dans le module
worksheets('Nom de ma feuille')Range ('A1')
Copy worksheets('nom de ma feuille 2')Range('B4')
SelectSelection
PasteSpecial Paste=xlPasteFormats
Lorsque je fais F9 ça bloque à worksheets



je crois que le plus simple serait d'en faire une fonction (j'ai essayé je n'ai pas réussi)
j'ai une erreur de compilation
Comme vous l'aurez compris je suis plus qu'un débutant

Merci d'avance

Jack