Private Sub Workbook_Open()
With Worksheets("feuill NOK")
.Activate
NumLig = Application.Match(CLng(Date), .Range("mesdates"), 0) + 2
If Not IsError(NumLig) Then
.Range("E" & NumLig).Select
Else
Err.Clear
MsgBox "la date du jour n'est pas dans le tableau"
End If
End With
End Sub