Sub macro()
Dim nombre1
Dim nombre2
Dim nombre3
nombre1 = InputBox('Entrer le numérateur')
nombre2 = InputBox('Entrer le dénominateur')
If nombre2 <> 0 Then
nombre3 = nombre1 / nombre2
MsgBox (nombre1 + ' / ' + nombre2 + ' = ' + nombre3 + '.')
Else
MsgBox ('La division par 0 est impossible')
End If
End Sub