Bonjour,
voila la reponse à ta question, en supposant que les données
à traiter débute en d13
tu n'as plus qu'à boucler sur ta zone
Sub ass()
Dim vala, valb, valc
Sheets(1).Activate
Range("d13").Select
vala = ActiveCell.Value
valb = ActiveCell.Offset(0, 1).Value
valc = vala & valb
ActiveCell.offset(0,2).Formula = valc
End Sub