1 : 2 : 3 : 4 :
1 : 2 : 3 :
Workbook_SheetActivate secondaire privé (ByVal SH comme objet) Application.ThisWorkbook.Windows (1).Caption = Sh.Name Sous-marin d'extrémité