XL 2019 Boucle - Concatener deux colonnes VBA

[RCAVBA]

Bonjour
Je souhaite concaténer deux colonnes jusqu'à la dernière ligne via macro VBA
Merci

 

[M12]

Bonjour
Quelles colonnes ?
Les colonnes ont-elles les mêmes cellules remplies ?
Avec des lignes vides ou sans ?
Avec quel séparateur ?

Bref, rien de concret

 

[RCAVBA]

Colonnes D, E et F.
Sans lignes vides
Espace comme séparateur

Merci

 

[M12]

Re,

Sub Concat()
  Dim i%,  Dl%
  Dim Ws As Worksheet
  Set Ws = ActiveSheet
  Dl = Ws.Range("D" & Rows.Count).End(xlUp).Row
  For i = 1 To Dl
    Ws.Cells(i, "G").Value = Ws.Cells(i, "D").Value & " " & Ws.Cells(i, "E").Value & " " & Ws.Cells(i, "F").Value
  Next i
End Sub