Sub AfficheMsg(message As String)
    If MsgBox("Le message est " & message, vbYesNoCancel, "Exemple de titre") = vbYes Then
        MsgBox "Clic sur oui"
    End If
    
End Sub

Sub AppelMsg()
    AfficheMsg ("Mon message 1")
    AfficheMsg ("Mon autre message")
    AfficheMsg ("Mon message 3")
End Sub


Function Ajouter(nb1 As Integer, nb2 As Integer)
    Ajouter = nb1 + nb2
End Function

Function Soustraire(nb1 As Integer, nb2 As Integer)
    Ajouter = nb1 - nb2
End Function

Function Diviser(nb1 As Integer, nb2 As Integer)
    Ajouter = nb1 / nb2
End Function

Function Multiplier(nb1 As Integer, nb2 As Integer)
    Ajouter = nb1 * nb2
End Function


Sub AppelFun()
    Dim resultat As Integer
    
    resultat = Ajouter(25, 15)
    MsgBox resultat
End Sub