Sub ExempleDial()
    If MsgBox("Le texte ou message", vbOKCancel + vbCritical, "ERREUR") = vbOK Then
    
    End If
End Sub


Sub ExempleInput()
    Dim nom As String
    
    nom = InputBox("Quel est ton nom ?", "Question 1")
    MsgBox nom
End Sub

Sub DemandeNb()
    Dim nb As Integer
    
    nb = InputBox("Saisir un nombre", "Titre")
    
    If nb > 100 Then
        MsgBox "Plus grand que 100"
    Else
        MsgBox "Plus petit que 100"
    End If
End Sub