Problème enregistrement macro

Bonjour, voila mon souci :

J'ai un fichier excel avec deux page, sur la 1er page des informations qui vont être concentrées avec une formule de calcule

=CONCATENER(RECHERCHEV(CONCATENER($A2;"#";E$1);Feuil1!$A$2:$N$5000;4;FAUX);CAR(10);"commande: ";RECHERCHEV(CONCATENER($A2;"#";E$1);Feuil1!$A$2:$N$5000;2;FAUX);CAR(10);"BC: ";RECHERCHEV(CONCATENER($A2;"#";E$1);Feuil1!$A$2:$N$5000;6;FAUX);CAR(10);"reste à livrer: ";RECHERCHEV(CONCATENER($A2;"#";E$1);Feuil1!$A$2:$N$5000;5;FAUX);CAR(10);"Status: ";RECHERCHEV(CONCATENER($A2;"#";E$1);Feuil1!$A$2:$N$5000;14;FAUX))

Quant je veux enregistrer la macro tout ce passe bien, quant je vais dans le code VB

Sub Macro1()
'
' Macro1 Macro
'

'
    [color=#FFFF00]Selection.AutoFill Destination:=Range("E2:T2"), Type:=xlFillDefault[/color]
    Range("E2:T2").Select
    Selection.AutoFill Destination:=Range("E2:T11"), Type:=xlFillDefault
    Range("E2:T11").Select
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.SmallScroll Down:=3
    Range("D10").Select
    Selection.AutoFill Destination:=Range("D10:V10"), Type:=xlFillDefault
    Range("D10:V10").Select
    Range("V11").Select
    Selection.AutoFill Destination:=Range("A11:V11"), Type:=xlFillDefault
    Range("A11:V11").Select
    Range("C19").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.SmallScroll Down:=-3
End Sub

et je l’exécute. Il m'affiche "erreur d’exécution 1004 la méthode Autofill de la classe Range a échoué".

Je vous met le fichier excel en pièce jointe.

Merci d'avance

Bonjour, t'as macro simplifiée à tester :

Sub Macro1()
   Range("E2:T2").AutoFill Destination:=Range("E2:T11"), Type:=xlFillDefault
   Range("D10").AutoFill Destination:=Range("D10:V10"), Type:=xlFillDefault
   Range("V11").AutoFill Destination:=Range("A11:V11"), Type:=xlFillDefault
End Sub

C'est quoi le but exact de cette macro ?, comprend pas trop...

Bonjour Floc31,

Bonjour Fred35,

D'après le résultat obtenu, j'aurais bien vu simplement

Sub Macro1()
    Range("E2").AutoFill Destination:=Range("E2:T2"), Type:=xlFillDefault
    Range("E2:T2").AutoFill Destination:=Range("E2:T11"), Type:=xlFillDefault
End Sub

A+

Cela marche merci, mais je suis désoler j'ai oublier une info :

la formule j'aimerais que même si elle n'est plus dans la cellule E2 (elle soit enregistrer en dure et quant on active la macro elle ce déploie sur toute la colonne E :

Sub Macro1()

'-- code du la formule j'avais pensée à 
ActiveCell.formula = "=CONCATENER(RECHERCHEV(CONCATENER($A2;"#";E$1);Feuil1!$A$2:$N$5000;4;FAUX);CAR(10);"commande: ";RECHERCHEV(CONCATENER($A2;"#";E$1);Feuil1!$A$2:$N$5000;2;FAUX);CAR(10);"BC: ";RECHERCHEV(CONCATENER($A2;"#";E$1);Feuil1!$A$2:$N$5000;6;FAUX);CAR(10);"reste à livrer: ";RECHERCHEV(CONCATENER($A2;"#";E$1);Feuil1!$A$2:$N$5000;5;FAUX);CAR(10);"Status: ";RECHERCHEV(CONCATENER($A2;"#";E$1);Feuil1!$A$2:$N$5000;14;FAUX))"

    Range("E2").AutoFill Destination:=Range("E2:E99999"), Type:=xlFillDefault
End Sub

que pensez vous de la solution ?

Bonjour,

J'aurais bien vu

Sub Macro1()
    Range("E2").FormulaLocal = "=CONCATENER(RECHERCHEV(CONCATENER($A2;""#"";E$1);Feuil1!$A$2:$N$5000;4;FAUX);CAR(10);""commande: "";RECHERCHEV(CONCATENER($A2;""#"";E$1);Feuil1!$A$2:$N$5000;2;FAUX);CAR(10);""BC: "";RECHERCHEV(CONCATENER($A2;""#"";E$1);Feuil1!$A$2:$N$5000;6;FAUX);CAR(10);""reste à livrer: "";RECHERCHEV(CONCATENER($A2;""#"";E$1);Feuil1!$A$2:$N$5000;5;FAUX);CAR(10);""Status: "";RECHERCHEV(CONCATENER($A2;""#"";E$1);Feuil1!$A$2:$N$5000;14;FAUX))"
    Range("E2").AutoFill Destination:=Range("E2:T2"), Type:=xlFillDefault
    Range("E2:T2").AutoFill Destination:=Range("E2:T11"), Type:=xlFillDefault
End Sub

A+

Merci sa marche