Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "voici une feuille", vbOKOnly
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "Vous êtes sur la " & ActiveSheet.Name, vbOKOnly
End Sub
Private Sub Worksheet_Activate()
MsgBox "c'est ma feuille!", vbOKOnly
End Sub