Proleme code VBA

Bonjour, j'essaie de créer l code suivant :

Sub Etape1MacroSmi()
'
' MacroSami Macro
' Macro enregistrée le 08/04/2008 par lq
'

    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight

    Range("A3").Select
    ActiveCell.FormulaR1C1 = "=INDEX(ABG2008!$A$1:$C$6484;EQUIV(abg2007!J3;ABG2008!$A$1:$A$6484;0);3)"
    Range("A3").Select
    Selection.AutoFill Destination:=Range("A3:A65536"), Type:=xlFillDefault
    Range("A3:65536").Select
End Sub

ce code est censé ajouter une colonne au deut, selectionner A3, mettre la formule en question dans A3 , et faire un Autofill de la mm formule , ou l'etendre si vous preferez pour toute la colonne A.

Mais j'i une erreur d'execution 1004, le code ne fait que ajouter une colonne au debut et s'arrete.

MErci d'avance

Bonjour,

Remplace le code suivant :

ActiveCell.FormulaR1C1 = "=INDEX(ABG2008!$A$1:$C$6484;EQUIV(abg2007!J3;ABG2008!$A$1:$A$6484;0);3

par :

ActiveCell.FormulaR1C1 = "=INDEX(ABG2008!R[-2]C:R[6481]C,MATCH(ABG2007!RC[9],ABG2008!R[-2]C:R[6481]C,0),3)"

Cdlt,

je viens de trouver une solution plus simple en fait :

J'ai ecri la formule dans un case P3, et j'ai :

Range("P3").Select
    Selection.AutoFill Destination:=Range("P3:P6000"), Type:=xlFillDefault

cela m'a evité d'ajouter des colonnes au debut, les supprimer aprés, et meme de copier coller

Mais tn code a marché aussi, je l'ai essayé et modifié un pe

Merci beaucoup