Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case Sh.Index 'action en foncton de l'index du classeur
Case 1 'cas 1
ActiveSheet.Range("C10").Select 'sélectionne C10
Case 2 'cas 2
ActiveSheet.Range("G20").Select 'sélectionne G20
Case 3 'cas 3
ActiveSheet.Range("A1").Select 'sélectione A1
End Select 'fin de l'action en fonction de...
End Sub