problème de syntaxe Range

bonjour à tous, j'ai il me semble un problème de syntaxe une fois de plus. Le compilateur me signale une erreur au niveau de la seconde ligne du code suivant:

Code:

---

1 2	Range("J160:K162").Select Selection.AutoFill Destination:=Range(Cells(160, 10), Cells(162, DerniereColonneTCDyn)), Type:=xlFillDefault

---

Est ce que quelqu'un pourrait m'aider s'il vous plaît? merci à vous et bonne journée.

Bonjour à toi et tout le forum,

Un exemple trouvé dans l'aide (il faut s'en servir)

Code:

---

1 2 3 4 5 6 7

Sub essai() Dim sourcerange As Range, fillRange As Range Range("J160:K162").Select Set sourcerange = Range("J160:K162") Set fillRange = Range("J160:K180") ' k à remplacer sourcerange.AutoFill Destination:=fillRange End Sub

---

Bonne journée