Private Sub Workbook_Open()
'With Worksheets("Feuil3(Prestations)") 'ERREUR
With Sheets("Prestations") 'CORRECTE
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="6002", UserInterfaceOnly:=True
End With
'With Worksheets("Feuil2(Offre-facturation)")
With Sheets("Offre-facturation")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="6002", UserInterfaceOnly:=True
End With
'With Worksheets("Feuil1(Doss_liste)")
With sheets("Doss_liste")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="6002", UserInterfaceOnly:=True
End With
End Sub