Désactiver les filtres dans un tableau proteger

Bonjour,
J’utilise ce code pour désactiver les filtres et protéger la feuille de calcul Excel et tout se passe très bien, mais pour diverse raison j’ai besoin de transformer ma feuille de calcul en tableau Excel et là je ne peux pas rentrer des données sans enlever la protection alors qu’avant si. En espérant que quelqu’un souhaite m’aider, je vous remercie par avance.
Code dans le ThisWorbook:Private Sub Workbook_Open()

' FFA : Feuilles pour lesquelles on veut un Filtre Automatique
Const FFA As String = "Jaugeage, BDDG, BDD 104,BDD 106,BDD 108, Base"

Dim ws As Worksheet, Lig As Byte: Worksheets("Jaugeage").Select
Application.ScreenUpdating = False

For Each ws In ThisWorkbook.Worksheets
If ws.Visible = True Then
If InStr(FFA, ws.Name) > 0 Then
If ws.ProtectContents Then
UnProtectWorksheet ws
End If
If Not ws.AutoFilterMode Then
Lig = 1 - 2 * (ws.Name = "BDDG" Or ws.Name = "Base")
ws.Cells(Lig, 1).AutoFilter
Else
If ws.FilterMode Then ws.ShowAllData
End If
ProtectWorksheet ws
End If
End If
Next ws

Application.GoTo Worksheets("Jaugeage").Cells(1)
ThisWorkbook.Saved = True

End Sub
Code dans un module:

Option Explicit
'Option Private Module

Public Const PWD As String = "excel"

Public Sub ProtectWorksheet(ws As Worksheet)

ws.Protect _
Password:="toto", _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
AllowSorting:=True, _
AllowFiltering:=True
End Sub

Public Sub UnProtectWorksheet(ws As Worksheet)

ws.Unprotect _
Password:="toto"
End Sub

Sub test()
Dim ws As Worksheet
Set ws = ActiveSheet
If ActiveSheet.ProtectContents Then
UnProtectWorksheet ws
End If

End Sub