macro derniere ligne

[limagerit]

BOnjour a tous,
J'ai une macro qui remplis la colonne d'une formule jusqu'à la derniere cellule pleine.
Cependant lorsque j'ai qu'une ligne , la macro bug
une idée ?

Range("k3").FormulaLocal = "=SI(M3<>"""";M3;L3)"
DerLig = Range("A2").End(xlDown).Row
Range("k3").Select
Selection.AutoFill Destination:=Range("k3:k" & DerLig)

 

[Dranreb]

Bonjour.

DerLig = Range("A2").End(xlDown).Row
Range("k3").Resize(DerLig - 2).FormulaLocal = "=SI(M3<>"""";M3;L3)"

 

[limagerit]

bonjour Dranred,

Merci pour la modif , je confirme que cela marche
Merci aussi d'avoir réduit ma formule en 2 lignes

Bonne journée