Bonjour,
à tester,
Sub test()
aMois = Array("", "janvier", "fevrier", "mars", "avril", "mai", "juin", "juillet", "août", "septembre", "octobre", "novembre", "décembre")
sMois = aMois(Month(Date))
colMois = Application.Match(sMois, Range("1:1"), 0)
col = colMois + Day(Date) - 1
Application.Goto Cells(4, col)
End Sub