Utiliser Cells dans boucle For

Bonjour,

J’ai un petit souci avec la fonction Cells.

Voici mon code :

Dim i As Integer

Dim Tableau() As String

    Tableau = Split(Range("A1"), "-")

    For i = 0 To UBound(Tableau)

        MsgBox "i = " & i & " Valeur = " & Tableau(i)

        Cells(1, i).Value = Tableau(i)

    Next i

Le but de la fonction est de décomposer une chaine de caractères dans la cellule A1.

J’obtiens une erreur 1004 : erreur définie par l’application ou par l’objet ; sur la ligne Cells…

Bonjour et bienvenu sur le forum,

C'est à cause de l'indice 0 repris dans le paramètre colonne. Essaye comme ça :

Cells(1, i + 1).Value = Tableau(i)

Merci, comment j'ai pu loupé sa. J'ai honte