Public Function nummois(cellule As Range)
Select Case LCase(cellule)
Case "jan", "janv", "janvier": nummois = 1
Case "fév", "fev", "février", "fevrier": nummois = 2
Case "mar", "mars": nummois = 3
Case "avr", "avril": nummois = 4
Case "mai": nummois = 5
Case "juin": nummois = 6
Case "juil", "juillet": nummois = 7
Case "aou", "aoû", "août", "aout": nummois = 8
Case "sept", "septembre": numois = 9
Case "oct", "octobre": nummois = 10
Case "nov", "novembre": nummois = 11
Case "dec", "déc", "décembre", "decembre": nummois = 12
Case Else: Error 1
End Select
End Function