Sub SaisieChoix()
Dim Réponse As Variant
Dim S As String
Const CalculSalaire As Integer = 1
Const CalculRatioPrésence As Integer = 2
Const CalculCoteEmployé As Integer = 3
S = CStr(CalculSalaire) & " - Calculer le salaire" & vbCrLf & _
CStr(CalculRatioPrésence) & " - Calculer le ratio de présence" & vbCrLf & _
CStr(CalculCoteEmployé) & " - Calculer la cote de l’employé" & vbCrLf & vbCrLf & _
"Entrer un des choix proposés..."
Do While 1
Réponse = Application.InputBox(S, "Saisie de l'opération", Type:=1)
'Touche <Annuler>
If VarType(Réponse) = vbBoolean Then Exit Sub
'Analyse du choix
Select Case Réponse
Case CalculSalaire
Call Traite_CalculSalaire
Exit Do
Case CalculRatioPrésence
Call Traite_CalculRatioPrésence
Exit Do
Case CalculCoteEmployé
Call Traite_CalculCoteEmployé
Exit Do
Case Else
MsgBox "Réponse incorrecte !"
End Select
Loop
End Sub