Sub AvantVirgule()
Dim t, i&, n
t = Range("a1:a" & Cells(Rows.Count, "a").End(xlUp).Row + 1)
On Error Resume Next
For i = 1 To UBound(t)
t(i, 1) = Left(t(i, 1), InStr(t(i, 1), ",") - 1)
Next i
Range("a1").Resize(UBound(t)) = t
Columns(1).AutoFit
End Sub
et je veux le refaire avec plus de donnée je peut prendre la même feuille et remplacer les données