Concatener

Bonsoir

Tu n'en dis pas lourd......

en imaginant tes valeurs en colonne A et B et le résultat en colonne C

Public Sub vev()
dim c as range
For Each c In Range("a1:a" & Range("a65000").End(xlUp).Row)
c.Offset(0, 2).Value = c.Value & c.Offset(0, 1).Value
Next c
End Sub

Salut
Hervé

Bonjour Hervé,

Exactement ce que je souhaitais.

Merci

BA