Private Sub Workbook_Open()
On Error Resume Next
With Feuil1 'CodeName
Application.Goto .Cells(2, Application.Match(CDbl(Date), .Rows(3))).Resize(2).Select
ActiveWindow.ScrollColumn = ActiveCell.Column
End With
End Sub
Private Sub Workbook_Open()
On Error Resume Next
With Feuil1 'CodeName
Application.Goto .Cells(2, Application.Match(CDbl(Date), .Rows(3))).Resize(2), True
End With
End Sub
On Error Resume Next
With Feuil1 'CodeName
Application.Goto .Cells(2, Application.Match(CDbl(Date), .Rows(3))).Resize(2), True
End With