il suffit de creer une liste avec une colonne mois numerique et une colonne moislibelle (ds la feuille ou une autre) et d' utiliser la fonction recherche
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "1"
Target.Value = "Janvier"
Case "2"
Target.Value = "Février"
Case "3"
Target.Value = "Mars"
Case "4"
Target.Value = "Avril"
Case "5"
Target.Value = "Mai"
Case "6"
Target.Value = "Juin"
Case "7"
Target.Value = "Juillet"
Case "8"
Target.Value = "Août"
Case "9"
Target.Value = "Septembre"
Case "10"
Target.Value = "Octobre"
Case "11"
Target.Value = "Novembre"
Case "12"
Target.Value = "Décembre"
Case Else
End Select
Je complèterai l'excellente solution proposée par Uhaina par une sélection des résultats et appliquer le format de date personnalisé : mmmm
qui affichera le libellé du mois