Sub Convertir()
Dim dur#, t, ncol%, rest(), i&, n%, j%
dur = Timer
With Feuil2 'CodeName
.Cells.Clear 'RAZ
[A:A].Copy .Cells(1)
.Columns(1).TextToColumns .Cells(1), xlDelimited, ConsecutiveDelimiter:=True, Space:=True
With .Range("A1:A2", .UsedRange) 'au moins 2 cellules
t = .Value
ncol = UBound(t, 2)
ReDim rest(1 To UBound(t), 1 To ncol)
For i = 1 To UBound(t)
n = 0
For j = 1 To ncol
If IsNumeric(t(i, j)) Then
n = n + 1
rest(i, n) = t(i, j)
End If
Next j, i
.Value = rest
.ColumnWidth = 10.71 '.Columns.AutoFit
End With
.Activate
End With
MsgBox "Durée " & Format(Timer - dur, "0.00 \s")
End Sub