Bonjour INFINITY 100
Cela a l'air de fonctionner.
-> Pas besoin nécessairement d'utiliser = CONCATENATE ()
----
Sub CONCAT()
For i = 1 To Range("B" & Rows.Count).End(xlUp).Row
On Error Resume Next
Cells(i, 3).Value = Cells(i, 1) & " " & Cells(i, 2)
Next
End Sub