Private Sub ComboBox1_GotFocus()
Dim t, i As Byte
t = [GV4:GV9] 'matrice
For i = 1 To UBound(t)
t(i, 1) = Format(t(i, 1), "mmmm yyyy") 'formatage des dates
Next
ComboBox1.List = t
End Sub
Private Sub ComboBox1_Change()
On Error Resume Next
Application.Goto [D4:IV4].Find(CDate(ComboBox1), , xlFormulas), True
End Sub