Excel - Verrouillage ligne permettant le tri et les filtres

Bonjour,

Je viens de créer une macro me permettant de verrouiller chacune des lignes de mon tableau excel indépendamment avec la case oui ou non situé dans la colonne A.

Voici le code que j'ai actuellement et qui fonctionne bien.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range, pl As Range
Set pl = Intersect(Target, [A:A])
If Not pl Is Nothing Then
Me.Unprotect Password:=""
For Each c In Intersect(pl, [A:A])
Cells(c.Row, 2).Resize(, 30).Locked = LCase(c) = "oui"
Next c
Me.Protect Password:=""

End If

End Sub


Je souhaiterais avoir la possibilité de trier ainsi que de filtrer les colonnes de mon tableau créé avec la commande "mettre sous forme de tableau. Car lorsque ma macro fonctionne mes cellules sont verrouillés et il m'est impossible de réaliser le tri et le filtre des colonnes.

Après recherche, il semblerait qu'il faille utiliser la fonction EnableAutoFilter mais je n'arrive pas à la placer dans mon code.

Merci par avance,

Maxime