g pas tester donc c surement a adapter.
pour tester si le nom du mois existe :
Dim Machaine As String, NomMois As String
Dim MoisOk As Boolean
MoisOk = False
Machaine = InputBox(" ", "")
Do While Mid(Machaine, j, 1) <> "/"
j = j + 1
Loop
NomMois = Mid(Machaine, 1, j - 1)
For i = 1 To 12
If LCase(NomMois) = MonthName(i) Then MoisOk = True
Next i