Sub Voir()
Dim dat&, lig
On Error Resume Next
dat = DateValue("1 " & [A3] & " " & [B3])
With Sheets("Comptabilisation erreurs")
lig = Application.Match(dat, .[A:A].Value2, 0)
Application.Goto .Cells(lig, 1), True
End With
If Err Then MsgBox "Mois inexistant..."
End Sub