Bonjour junot, bonjour le forum,
Une proposition avec la macro événementielle Change ci-dessous :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$3" Then Exit Sub
Range("E5").Value = Format("1/" & Target.Value, "mmmm")
End Sub
Bonjour Môssieu FERRAND. Nos posts se sont croisés. Toujours présent au poste et toujours aussi efficace...