Function MonFormat(MaDate As Date) As String
Dim MonArray
MonArray = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", _
"Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
MonFormat = MonArray(Month(MaDate) - 1)
End Function