Dim Rep, n As Byte
Do
Rep = Application.InputBox("réponses : p pour partiel, t pour total, a pour arrêter !", Type:=2)
Select Case Rep
Case "p"
[A:A] = "": For n = 1 To 10: Cells(n, 1) = n: Next 'ou ta procédure
Exit Do
Case "t"
[A:A] = "": For n = 1 To 50: Cells(n, 1) = n: Next 'ou ta procédure
Exit Do
Case "a"
If MsgBox("Voulez-vous recommencer ?", vbYesNo, "") = vbNo Then Exit Do
End Select
Loop