Problème de report de valeurs d'une feuille à une autre

[Thibaut]

re-re-bonjour le forum ;o)
Promis, c est mon dernier problème de la journée... Bon, J ai un classeur composé de 4 feuilles... Sur la première sont importées des données et certains calculs sont effectués. En reprend les valeurs pour les mettre sur les autres feuilles... Mais (et je ne comprends pas pourquoi) lors de l exécution de la macro les cellules des 3 autres feuilles se remplissent de #NAME?
Voici une partie de mes lignes de codes... (ben oui, je ne vais pas tout mettre vu que c est souvent le même avec juste des différences de références de cellules)

Sheets("jan-apr.").Select

Range("B9").Select
ActiveCell.Formula = "='Feuille de calcul'!AE6"
Range("B9").Select
Selection.AutoFill Destination:=Range("B9:B39"), Type:=xlFillDefault
Range("B9:B39").Select
ActiveWindow.ScrollRow = 1

Range("C9").Select
ActiveCell.Formula = "='Feuille de calcul'!AF6"
Range("C9").Select
Selection.AutoFill Destination:=Range("C9:C39"), Type:=xlFillDefault
Range("C9:C39").Select
ActiveWindow.ScrollRow = 1

Range("E9").Select
ActiveCell.FormulaR1C1 = "='Feuille de calcul'!AE37"
Range("E9").Select
Selection.AutoFill Destination:=Range("E9:E37"), Type:=xlFillDefault
Range("E9:E37").Select
ActiveWindow.ScrollRow = 1

Range("F9").Select
ActiveCell.FormulaR1C1 = "='Feuille de calcul'!AF37"
Range("F9").Select
Selection.AutoFill Destination:=Range("F9:F37"), Type:=xlFillDefault
Range("F9:F37").Select
ActiveWindow.ScrollRow = 1


Merci à quiconque pourra me venir en aide

Bonne aprèm

Thibaut

 

[Thibaut]

Je crois avoir trouvé...

ActiveCell.FormulaR1C1 = "='Feuille de calcul'!AE37"

devient

ActiveCell.Formula = "='Feuille de calcul'!AE37"

p ... je teste ça et je vous dit quoi...

 

[Thibaut]

C était bien ça... une très très bête erreur...
Bonne fin d après-midi à tous

Thibaut