Bonsoir Philippe
Pour ta deuxième question, voici 2 lignes à ajuster en fonction de la feuille protégée (ici ActiveSheet). Je les ai obtenu grâce à l'enregistreur de macro.
ActiveSheet.Unprotect
Ta macro
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
@+ et bonne soirée