re,
déja ta fonction de protection sera mieux comme ça
Sub Proteger_Feuille()
ActiveSheet.Protect DrawingObjects:=True, AllowFiltering:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub
ensuite vu que je vois pas d'ou viens ton erreur et que g pas ton fichier, tu peux déja exécuter ton code en pas a pas pour voir ou ça pète et pkoi.