Macro recopie de la formule jusqu'à cellule non vide

Marjo2

XLDnaute Occasionnel
Bonjour à tous,

J'ai crée cette macro mais je ne comprends pas pourquoi la formule ne va pas jusqu'en bas de ma dernière cellule (équivalent de cliquer sur la cellule pour recopie automatique jusqu'en bas)

Sub Concatener()
Dim DerLig As Long
Worksheets("STOCK").Select
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
Selection.ClearFormats
With Worksheets("STOCK")
DerLig = .Range("D65536").End(xlUp).Row
.Range("D1:D" & DerLig).FormulaR1C1 = "=CONCATENATE(RC[-3],"" "",RC[-2],"" "",RC[-1])"
End With
End Sub

Quelqu'un pour m'aider à prendre du recul svp ?
 

Discussions similaires

Réponses
7
Affichages
292
Réponses
1
Affichages
1 K

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof