sub testmacro()
Dim a(12), mois(12), i&, aa$, b$
b = InputBox("Saisir le nom d'un mois, svp" & Chr(13) & " (en respectant l'orthographe naccents inclus)")
For i = 0 To 11
mois(i) = Format(30 * (i + 1), "mmmm")
a(i) = Format(30 * (i + 1), "mmm")
Next
aa = _
Switch(b = "janvier", a(0), b = "février", a(1), b = "mars", a(2), b = "avril", a(3), _
b = "mai", a(4), b = "juin", a(5), b = "juillet", a(6), b = "août", a(7), _
b = "septembre", a(9), b = "octobre", a(9), b = "novembre", a(10), b = "décembre", a(11))
Cells.Replace "template", b, xlPart, xlByRows, False
Cells.Replace "temp", aa, xlPart, xlByRows, False
end sub