Question sur les tableaux

Bonjour , avec le code suivant

Sub first_tableau()
Dim tablo As Variant
Dim i As Integer

tablo = Array("client1", "client2", "client3")

For i = 1 To 3
Cells(i, 1) = tablo(i)
Next
End Sub

j'aurais voulu un array plus long du genre Array("client1", "client2", ........."clientn") sans avoir à saisir systématiquement client 1 , client2, client3 ,....., clientn , est il possible de le faire via une boucle dans la variable tablo ?

Merci pour toute réponse

Bonjour,

sans boucle, pour 10 ici :

    [A1] = "Client1"
    [A1].AutoFill Destination:=[A1].Resize(10), Type:=xlFillDefault

eric

Bonjour,

Avec la boucle :

Sub first_tableau()
Dim NbClients
Dim Tablo()
Dim i As Integer
    NbClients = InputBox("Veuillez saisir le nombre de clients.")
    If IsNumeric(NbClients) Then
        ReDim Tablo(1 To NbClients)
        For i = 1 To NbClients
            Tablo(i) = "client" & i
        Next
        Cells(1, 1).Resize(NbClients) = Application.Transpose(Tablo())
    End If
End Sub

A+

je vous remercie pour ces deux solutions que je vais examiner avec un grand interet , merci à vous deux !