Problème de 0

Bonjour tout le monde,

J'utilise un code vba pour séparer le texte d'une cellule sur plusieurs cellules de manière automatique, voici le code:

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Application.CutCopyMode = False

    Selection.TextToColumns Destination:=Range("D26"), DataType:=xlDelimited, _

        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _

        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _

        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _

        True

Le problème est qu.une partie de ce texte est un chiffre qui peut commmencer par 0 et donc quand excel coupe et colle ce chiffre, il supprime le 0 s'il est en premier. J'ai essayé de mettre les cellules au format texte mais cela ne change rien, je sais que l'on peut mettre un 'devant le 0 mais je ne vois pas comment l'intégrer dans ce code. Pouvez vous m'aider?

Merci d'avance!

bonjour,

remplace ceci

:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1))

par

:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2))

ça a l'air de fonctionner mais j'avoue ne pas comprendre pourquoi?

Je pensais que les 2 chiffres de array signifiait juste leur emplacement dans le tableau, ai-je tort?

Dans tout les cas merci!

Après avoir cherché, je crois comprendre que le deuxième chiffre se rapporte plutôt au format de la cellule 1= standard, 2= texte...

Encore merci!