Re : feuille protéger, autoriser filtre
Merci beaucoup René!
J'ai adapté votre solution et sa marche.
Sub actualiser()
ScreenUpdating = False
ActiveSheet.Unprotect "lime21"
ActiveWorkbook.RefreshAll
ActiveSheet.Protect "lime21", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
Merci encore une fois.