Sub Traitement()
Pour_Test
MsgBox "Utilisation de Données/Convertir", vbOKOnly, "TEST"
Conversion
End Sub
Private Sub Pour_Test()
Cells.Clear: Range("A1:A30") = "=ROW() & "" 1 2 3 4 """
[A1:A30].Value = [A1:A30].Value
End Sub
Private Sub Conversion()
Columns(1).Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, ConsecutiveDelimiter:=True, Space:=True
End Sub