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