Sub Main()
'Ajout valeur dans Colonne D par rapport à Colonne C
ConcatSpc [D2], "*Ter ", [C2], "*"
'Ajout valeur dans Colonne H par rapport à Colonne G
ConcatSpc [H2], "*", [G2], " Ni*"
End Sub
Sub ConcatSpc(ByVal CelCbl As Range, ByVal Devant As String, ByVal CelSrc As Range, ByVal Derrière As String)
Dim T(), L As Long
With CelSrc.Worksheet.UsedRange: T = CelSrc.Resize(.Row + .Rows.Count - CelSrc.Row).Value: End With
For L = 1 To UBound(T, 1): T(L, 1) = Devant & T(L, 1) & Derrière: Next L
CelCbl.Resize(UBound(T, 1)).Value = T
End Sub