Répétition / addition chiffres macro

Bonjour,

Je souhaiterais répéter 32 fois le même chiffre en cellule A1 puis A2 etc... (en commencant par 1) et au bout de la 33ème itération rajouter 1 au chiffre précédent. Ce qui donnerait 1-1-1-1-1 (pendant 32x) puis au bout de la 32eme 2-2-2-2-2-2 au bout de la 64eme 3-3-3-3-3-3... et ce jusqu'à un nombre de boucles définies par une variable dans un input.

Pourriez-vous m'aider ?

Merci à vous,

Jean

bonjour,

une proposition

Sub aargh()
    nbf = InputBox("répétition")
    k = 0
    c = 0
    For i = 1 To nbf
        c = c + 1
        For j = 1 To 32
            k = k + 1
            Cells(k, 1) = c
        Next j
    Next i
End Sub

Merci beaucoup, c'est parfait