Dim l, y, z As String
On Error Resume Next
RetourArrière:
l = InputBox("Choisissez un jour de la semaine svp" & Chr(13) & Chr(13) _
& "Exemple : Jeudi", "Jour")
If l = "" Then Exit Sub
If l <> "Lundi" And l <> "Mardi" And l <> "Mercredi" And l <> "Jeudi" And l <> "Vendredi" And l <> "Samedi" Then
MsgBox "Veuillez saisir un jour de la semaine du Lundi au Samedi" _
& Chr(13) & Chr(13) & "Ex : Mercredi <- En mettant la première lettre en majuscule svp", , "Saisie invalide"
GoTo RetourArrière
Else
retourArriereBis:
y = InputBox("Entrée ou Sortie", "Saisie de l'action")
If y = "" Then Exit Sub
If y <> "Entrée" And y <> "Sortie" Then
MsgBox "Veuillez saisir ou ''Entrée'' ou ''Sortie'' svp", , "Saisie invalide"
GoTo retourArriereBis
Else
RetourArriereTer:
z = InputBox("Veuillez saisir une quantité" _
& Chr(13) & Chr(13) & "Puis la vérifier", "Saisie quantité plaquettes")
If z = "" Then Exit Sub
If z < 1 Then
MsgBox "Veuillez saisir un nombre plus grand que 0 svp", , "Saisie invalide"
GoTo RetourArriereTer
Else
'Suite de ta macro si tout est ok...
End If
End If
End If