Bonsoir un exemple qui découpe deux mots séparés d'un espace
Dim table() As String
table = Split(Feuil1.[A1], Chr(32))
TextBox1 = table(0)
TextBox2 = table(1)
Edit : bonsoir cousinhub ne m'en veux pas d'avoir apporté une solution toute faite mais j'apprends en même temps !