Exécuter plusieurs fois une macro

Bonjour,

sub M2 ()

a= inputbox("Combien de fois voulez-vous exécuter la macro M2?","Nombre d'exécution") 'demande nombre d'exécution

do while isnumeric (a) 'vérifie si c'est numérique
if not isnumeric(a) then
b=msgbox("Vous n'avez pas saisi un chiffre! Voulez-vous continuer?",vbyesno, "Erreur dans la saisie") ' demande à l'utilisateur s'il a tapé autre chose qu'un chiffre s'il veut continuer
if b= 7 then
exit sub 'si non, fin de la macro
else
a= inputbox("Combien de fois voulez-vous exécuter la macro M2?","Nombre d'exécution")
end if
end if
loop

for b=1 to a 'boucle qui tournera en fonction de la saisie
call M2 'appel de la macro
next b

end sub

salut,
ou alors :

Sub lancer_plusieurs_fois()
Dim i As Integer, n As Integer
On Error GoTo errorHandler
n = CInt(InputBox("saisir le nombre de fois ou vous souhaitez exécuter la macro"))
For i = 1 To n
Application.Run ("nom_de_la_macro_que_tu_veux_lancer_plusieurs_fois")
MsgBox i
Next i
Exit Sub
errorHandler:
MsgBox Err.Number & vbLf & Err.Description
End Sub

source gestion d'erreur ici