Bonjour,

J'ai une colonne A comportant plusieurs valeurs dans la meme cellule
"01280180 01280128 02180410"

J'ai donc mis en execution le code ci dessous afin qu il me permette de découper mes cellules afin d'avoir une seule valeur pas cellule comme ceci :

01280180
01280128
02180410

Mon probleme c'est que le code tourne sans erreur mais rien ne se passe, pourtant ca m'a l'air correct, mais je ne comprends pas, auriez vous une idée
Merci


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub AligneEnColonne()
Sheets("multi2").Range("a1").Select
    Dim Cellule As Range
    Dim i As Integer
    For Each Cellule In Range("a1:a" & Range("a6536").End(xlUp).Row)
        For i = 0 To UBound(Split(Cellule, " "))
            Debug.Print Split(Cellule, " ")(i)
        Next i
    Next Cellule
    Call supprimeDoublons
End Sub