Insertion de X lignes à partir d'une Inputbox

Bonjour à tous,

Besoin d'un coup de main pour coder en VBA l'explication suivante :

je cherche à inserer X lignes à partir de la ligne 8 (toujours celle là)

mais le nombres de ligne à inserer est variable est doit correspondre à la réponse d'une InputBox :

lancement de ma macro,

apparition d'un inputbox "combien de lignes voulez vous inserer ?"

saisie du nombre "10" puis OK

insertion de 10 lignes au dessus de la ligne 8.

fin de la macro

Merci d'avance. (office 2013, Windows 8)

Sub toto()
    x = InputBox("Donnez un nombre de lignes")
    For i = 1 To x
        ActiveSheet.Rows(8).Insert
    Next i
End Sub

ça marche nickel, Merci bien.