Delimite par espace

Bonjour le forum
J' ai récupré cette macro que j' ai testé et qui fonctionne tres bien pour ce que je veux faire (Importation texte avec choix du fichier. Je veux la modifier
afin de mettre comme séparateur l' espace afin que les données soit rangé dans les colonnes
Sub ChoixFichierCumulTXT()
'Code issu en partie de et d'un code de Coriollan et de Les boîtes de dialogues intégrées

ceclasseur = ThisWorkbook.Name
FichiersChoisis = Application.GetOpenFilename("Textes purs, *.txt", , , , True)

For Ctr = 1 To UBound(FichiersChoisis)
'MsgBox FichiersChoisis(Ctr)
ii = ActiveSheet.Range("a65536").End(xlUp).Row
Workbooks.OpenText FileName:= _
FichiersChoisis(Ctr), Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Semicolon:=True

'inclu_nom_fichier début
derligne = ActiveSheet.Range("a65536").End(xlUp).Row
Range("A1:A" & derligne).Select
Selection.Insert Shift:=xlToRight
Selection.FormulaR1C1 = FichiersChoisis(Ctr)
'inclu_nom_fichier fin
derligne = ActiveSheet.Range("a65536").End(xlUp).Row

'Rows(1).Copy Workbooks(ceclasseur).Sheets(1).Range("A" & ii + 1)
Rows(1 & ":" & derligne).Copy Workbooks(ceclasseur).ActiveSheet.Range("A" & ii + 1)
ActiveWorkbook.Close savechanges:=False
Next
TrouveAntislash
End Sub

Merco d' avance pour toute aide
Aladin