Sub aufbereiten_2()
Dim i As Long
Dim Material As String
'Mettre le nom de la feuille concernée.
With Sheets("Feuil1")
For i = 1 To .Cells(Rows.Count, 1).End(xlUp)
Material = Material & .Cells(i, 1) & ";"
Next i
.Cells(2, 2) = Material
End With
End Sub