Bonjour,
c'est possible, avec un code de funkyfoenky
que je te livre
'Protection
Sheets("LeNomDeTaFeuille").Protect Password:="TonMotDePasse", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
'Deprotection
Sheets("LeNomDeTaFeuille").Unprotect Password:="TonMotDePasse"
Pierrot