Bonjour,

Sous excel 2010,

J'ai une cellule avec 60 nombres espacés par une tabulation.

Je souhaite la de couper en 60 cellules contenant un nombre a chaque fois.

J'ai trouvé le code que je n'arrive pas a adapter (même ce code ne fonctionne pas) :

Extraire les données séparées par un espace dans une chaine de caractères
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub extractionMots()
Dim Tableau() As String
Dim i As Integer
'découpe la chaine en fonction des espaces " "
 
'le résultat de la fonction Split est stocké dans un tableau
 
Tableau = Split("Bienvenue sur le site Developpez.com", " ")
 
 
'boucle sur le tableau pour visualiser le résultat
For i = 0 To UBound(Tableau)
'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros
Debug.Print Tableau(i)
Next i
End Sub
D'avance merci pour m'aiguiller

Hidozo