Sub Factoriel() Dim a As Integer, b As Integer, i As Integer a = InputBox("Entrez le nombre a tester") b = 1 For i = 2 To a b = i * b Next MsgBox "Le factoriel de " & a & " est " & b End Sub