Const nLigDates As Integer = 6
Const sPremCol As String = "E"
Private Sub Worksheet_Activate()
nDerCol = Cells(nLigDates, Columns.Count).End(xlToLeft).Column
For nCol = Asc(sPremCol) - 64 To nDerCol
If Cells(nLigDates, nCol) = DateSerial(Year(Now), Month(Now), Day(Now)) Then
Cells(nLigDates, nCol).Select
Exit Sub
End If
Next nCol
End Sub