Re
Encore une petit modif
Sub test3()
Dim MOIS
MOIS = InputBox('Indiquez le mois:' & Chr(13) & Chr(13) _
& '(Saisir un chiffre entre 1 et 12, svp)', 'Choix du mois')
'If MOIS = vbNullString Then Exit Sub
Select Case MOIS
Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12
[A1] = MOIS 'ici pour l'exemple
Case Else
Exit Sub
End Select
End Sub