Private Sub Workbook_Activate()
If ActiveSheet.CodeName = "Feuil1" Then
Application.Goto Range("A1"), True
End If
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.CodeName = "Feuil1" Then
Application.Goto Range("A1"), True
End If
End Sub