Sub essai()
Dim Message, Title, Default, MyValue
Dim var As Variant
Message = 'Entrez un mois'
Title = '???'
Default = ''
MyValue = InputBox(Message, Title, Default)
If MyValue <> '' Then
var = MyValue
'je pense que c'est ici que tu fais ta comparaison avec ton autre variable
Else
MsgBox 'Veuillez saisir un mois', vbExclamation, 'Attention'
End If
End Sub