Sub Droite()
ActiveCell.Offset(0, 1).Select
End Sub
Sub Gauche()
ActiveCell.Offset(0, -1).Select
End Sub
Sub Aujourdhui()
If Application.CountIf([4:4], Date) > 0 Then
Cells(ActiveCell.Row, Application.Match(CLng(Date), [4:4], 0)).Select
End If
End Sub