vba utilisation de range et cell

[nikitableu]

bonjour
sur excel j'ai un souci en VBA. le morceau de macro ci joint me renvoit une erreur d'execution 1004 au niveau du range
svp quelqu'un pour me guider ? merci

Dim col As Integer
Dim lig As Integer
Selection.EntireRow.Insert

col = ActiveCell.Column - 1
lig = ActiveCell.Row + 3
Range(Cells(ActiveCell.Row, col), Cells(lig, col)).Formula = "=DECALER($A$6;LIGNE()-10;0)+1"

[cricri]

range c est un ensemble de cellune tu ne peut pas ecrire dans un ensemble
ecrit dans une cellule et copie dans le range

col = ActiveCell.Column - 1
lig = ActiveCell.Row + 3
Cells(ActiveCell.Row, col).Formula = "=DECALER($A$6;LIGNE()-10;0)+1"

Cells(ActiveCell.Row, col).copy
Range(Cells(ActiveCell.Row, col), Cells(lig, col)).).Select
ActiveSheet.Paste

par contre ta formule decaler fait une erreur je sais pas ce que tu veux faire



Range(Cells(ActiveCell.Row, col), Cells(lig, col)).Formula = "=DECALER($A$6;LIGNE()-10;0)+1"

[nikitableu]

merci je viens de voir que le pb est dans le formula
j'ai essayé avec formular1c1local sans succés
la formule decaler fonctionne deja sur la feuille excel donc je ne pense pas que le pb vient de là.
je seche un peu
merci pour le coup de main

[nikitableu]

ok tout va bien juste une petite boulette
il faut utiliser formulalocal
merci pour tout