Résultats de la recherche

Private Sub Workbook_Open() Dim Feuille As Worksheet Application.DisplayAlerts = False ' Désactiver les alertes For Each Feuille In ThisWorkbook.Worksheets If Feuille.Name <> ActiveSheet.Name Then Feuille.Delete End If Next Feuille Application.DisplayAlerts = True ' Réactiver les alertes...