'Concatenation en une colonne dans la colonne F
Set Sh2 = Sheets("Data")
For Each Cellule In Sh2.Range("F2:F" & Sh2.Range("B65536").End(xlUp).Row)
If Cells(Cellule.Row, 1) <> "" Then Cellule.Value = Sh2.Range("B" & Cellule.Row).Value & "," & Sh2.Range("C" & Cellule.Row).Value & "," & Sh2.Range("D" & Cellule.Row).Value
Next