Exécuter macro sur la colonne active

Bonjour,

J'ai créé une macro permettant de copier une formule (C2) dans une cellule de la même colonne (C4), puis d'étirer cette cellule (C4:C6).

(J'ai créer un exemple basique mis en fichier joint.)

Problème : quand je me place dans la cellule D2 et que je lance la macro, celle-ci s'exécute dans la colonne C.

Est-il possible de modifier le VBA de la macro pour la faire s'exécuter dans la colonne active ?

Si vous pouvez m'aider, ça serait vraiment super.

Merci.

Fabien

Bonjour et bienvenu(e)

Remplace la macro actuelle par celle-ci

Sub TEST()
Dim Col As Integer

  Col = ActiveCell.Column
  Cells(2, Col).Copy Cells(4, Col)
  Cells(4, Col).AutoFill Destination:=Cells(4, Col).Resize(3), Type:=xlFillDefault
End Sub

Merci beaucoup !

J'ai fait quelques petites modifications car mon fichier était plus complexe que l'exemple, et ça fonctionne. C'est génial d'avoir répondu aussi rapidement. Un grand MERCI.

Bonne fin de journée.