Macro incompatible avec une feuille protégée

merci mais pour le code,

j'ai essayé ça me je sais pas si c'est bon

    
Sub MacroavecfeuilleProtect()
    ActiveSheet.Unprotect "mdp"

Sheets("Janvier").Range("A9:A100").Value = Sheets("Intervenants").Range("A2:A100").Value
    Sheets("Février").Range("A9:A100").Value = Sheets("Intervenants").Range("A2:A100").Value
    Sheets("Mars").Range("A9:A100").Value = Sheets("Intervenants").Range("A2:A100").Value
    Sheets("Avril").Range("A9:A100").Value = Sheets("Intervenants").Range("A2:A100").Value
    Sheets("Mai").Range("A9:A100").Value = Sheets("Intervenants").Range("A2:A100").Value
    Sheets("Juin").Range("A9:A100").Value = Sheets("Intervenants").Range("A2:A100").Value
    Sheets("Juillet").Range("A9:A100").Value = Sheets("Intervenants").Range("A2:A100").Value
    Sheets("Août").Range("A9:A100").Value = Sheets("Intervenants").Range("A2:A100").Value
    Sheets("Septembre").Range("A9:A100").Value = Sheets("Intervenants").Range("A2:A100").Value
    Sheets("Octobre").Range("A9:A100").Value = Sheets("Intervenants").Range("A2:A100").Value
    Sheets("Novembre").Range("A9:A100").Value = Sheets("Intervenants").Range("A2:A100").Value
    Sheets("Décembre").Range("A9:A100").Value = Sheets("Intervenants").Range("A2:A100").Value
Sheets("Janvier").Range("A9:A100").Value = Sheets("Intervenants").Range("A2:A100").Value
   ActiveSheet.Protect "mdp", True, True, True
End Sub

Dan42153 a écrit :

Protection avec mot passe ("1234")

ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True

Enlever la protection;

ActiveSheet.Unprotect ("1234")

Dans mes bras !

C'est super, milles mercis Dan, c'est génial. Votre aide est vraiment appréciée.

Sincèrement

Serrji