Bonjour,
Un essai (code à coller dans un module standard de l'éditeur VBA accessible via ALT + F11) :
Sub CombineTxt()
'Déclaration des variables
Dim MaxA As Integer, MaxB As Integer, MaxC As Integer, A As Integer, B As Integer, C As Integer, D As Integer
With Sheets(1) 'Feuille n°1
MaxA = .Range("A" & Rows.Count).End(xlUp).Row 'Dernière ligne non vide colonne A
MaxB = .Range("B" & Rows.Count).End(xlUp).Row 'Idem B
MaxC = .Range("C" & Rows.Count).End(xlUp).Row 'Idem C
For A = 1 To MaxA 'Boucle sur colonne A
For B = 1 To MaxB 'Idem B
For C = 1 To MaxC 'Idem C
D = D + 1 'Indice de ligne unique pour colonne D (résultat)
.Range("D" & D) = .Range("A" & A) & .Range("B" & B) & .Range("C" & C) 'Combinaison de texte des 3 colonne A, B et C
Next C
Next B
Next A
End With
End Sub