Autoriser insertion de ligne ne marche pas [Résolu]

[Carmiel]

Bonjour,
Je sais ça fait bizarre, je pense que cela vient de ce que je fais.
Bon mon besoin est simple, protéger une partie d'une feuille et autoriser la saisie de données sans changement de format et en autorisant l'insertion de lignes et pas de colonne.
Jusque là rien de plus simple, mais en faisant comme cela, ça ne marche pas, je ne peux pas insérer de ligne.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub Protège()
    For Each Sht In Worksheets
        Sht.Select
        If Sht.Name <> "Listes" Then
            ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
                , AllowFormattingRows:=True, AllowInsertingRows:=True, UserInterfaceOnly:=True, _
                AllowInsertingHyperlinks:=True, AllowDeletingRows:=True, AllowSorting:= _
                True, AllowFiltering:=True
            ActiveSheet.EnableSelection = xlUnlockedCells
        End If
    Next
End Sub

Je précise que j'ai des lignes protégées et d'autres non (les titres le sont pas le reste) et jusqu'à la ligne 80, après c'est protégé.

Merci de votre aide

Ajout:
Je viens de tester en mettant

Code :

ActiveSheet.EnableSelection = xlUnlockedCells

en commentaire. Là je peux insérer une ligne sauf que je peux aussi sélectionner les titres, ce que j'aurais voulu éviter

[Carmiel]

J'ai trouvé,
il faut déprotéger TOUTE la ligne. Ben oui, c'est logique