gRAZIEBonjour à tous
(Si c'est du chinois, vite la touche F1 dans VBE
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = Sheets(1).Name Then
Range("C1").Select
ElseIf ActiveSheet.Name = Sheets(2).Name Then
Range("C2").Select
ElseIf ActiveSheet.Name = Sheets(3).Name Then
Range("B1").Select
End If
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Range(Choose(Sh.Index, "C1", "C2", "B1")).Select
End Sub