VBA : code fonctionne dans module mais pas dans Feuilles (Userform)

Bonjour à tous,

Dans mon code VBA je cherche à étendre une formule jusqu'à la dernière colonne (correspondant à la dernière cellule renseignée de la ligne précédente), j'ai donc rédigé le code de cette manière :

Code:

---

1 2 3

Dim DernCol As Long DernCol = Worksheets("% articles").Cells(18, Cells.Columns.Count).End(xlToLeft).Column Worksheets("% Articles").Cells(19, 3).AutoFill Destination:=Worksheets("% Articles").Range(Cells(19, 3), Cells(19, DernCol)), Type:=xlFillDefault

---

Ce code fonctionne très bien dans un module lorsque j'enclenche la macro du module mais une fois le module appelé dans le code de l'Userform cela boque au niveau de la 3é ligne de ce fragment de code.

Idem si j'incère ce même code directement dans celui de la feuilles.

Je n'arrive pas à comprendre pourquoi...

Pourriez vous m'aider ?

Salut

Tu dois également préfixer Cells(19, DernCol) de la feuille Worksheets("% Articles") ==> Worksheets("% Articles").Cells(19, DernCol)
Tu gagnerais à travailler avec des variables pour les plages et ou pour les feuilles. Cela rendrait ton code plus simple à rédiger et à maintenir (selon mes critères de simplicité)