formule pour convertir de mois en lettre=en chiffre

Function MoisNum(strLeMois As String) As Integer
    MoisNum = Month(CDate("1 " & strLeMois & " " & Year(Date)))
End Function

Function MoisNum2(ByVal strLeMois As String) As Integer
    strLeMois = LCase(strLeMois)
    MoisNum2 = Switch(strLeMois = "jan", 1, strLeMois = "fév", 2, strLeMois = "mars", 3, strLeMois = "avr", 4, strLeMois = "mai", 5, _
                strLeMois = "juin", 6, strLeMois = "juil", 7, strLeMois = "août", 8, strLeMois = "sept", 9, strLeMois = "oct", 10, strLeMois = "nov", 11, strLeMois = "déc", 12)
End Function

Function NumMois(x)
'retourne zéro si pas dans liste
NumMois = (InStr(",jan,fév,mar,avr,mai,jun,jui,aoû,sep,oct,nov,déc," _
, "," & x & ",") + 3) \ 4
End Function

Function moisalpha(m) As String
moisalpha = Left(Format(DateValue("1/" & m), "mmm"), 3)
End Function

Sub a()
MsgBox moisalpha(1)
End Sub

Sub TableauFixe()
Dim m
m = Application.Match([D4], Array("jan", "fev", "mar", "avr", "mai", "jun", "jui", "aoû", "sep", "oct", "nov", "dec"), 0)
If IsNumeric(m) Then MsgBox m
End Sub

Function MonMois(t$)
MonMois = Application.Match(t, Array("jan", "fev", "mar", "avr", "mai", "jun", "jui", "aoû", "sep", "oct", "nov", "dec"), 0)
MonMois = IIf(IsNumeric(MonMois), MonMois, "")
End Function

Sub TableauFixe()
Dim m
m = Replace(Replace([D4].Text, "é", "e"), "û", "u")
m = Application.Match(m, Array("jan", "fev", "mar", "avr", "mai", "jun", "jui", "aou", "sep", "oct", "nov", "dec"), 0)
If IsNumeric(m) Then MsgBox m
End Sub

Function MonMois(t$)
t = Replace(Replace(t, "é", "e"), "û", "u")
MonMois = Application.Match(t, Array("jan", "fev", "mar", "avr", "mai", "jun", "jui", "aou", "sep", "oct", "nov", "dec"), 0)
MonMois = IIf(IsNumeric(MonMois), MonMois, "")
End Function

 t = Replace(Replace(t, "é", "e"), "û", "u")
 t = Left(LCase(t), 3)