Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim colonne As Byte, i As Byte, j As Byte
Dim num As String
colonne = 2
tablo = Split(Range('a1'), ',')
For i = 0 To UBound(tablo)
For j = 1 To Len(tablo(i))
If IsNumeric(Mid(tablo(i), j, 1)) Then num = num & Mid(tablo(i), j, 1)
Next j
Cells(1, colonne) = Val(num)
colonne = colonne + 1
num = ''
Next i
End Sub