VBA incorrect pour filtre automatique

Bonjour,

Mon code VBA ne fonctionne pas...
L'idée est d'effectuer automatiquement un filtre alphabétique à l'ouverture du fichier, de la colonne C "Projets" de mon tableau "Tableau1" sur mon onglet "BD"...

Je précise que "Tableau1" est une copie d'un autre fichier donc avec formule :
='PLAN PROJETS 2018 - Claire - Copie.xlsx'!Tableau1[@Projets]

J'ai essayé 2 codes:

Private Sub Workbook_Open() 
ActiveWorkbook.Worksheets("BD").ListObjects("Tableau1").Sort.SortFields.Clear 
ActiveWorkbook.Worksheets("BD").ListObjects("Tableau1").Sort.SortFields. _ 
Add Key:=Range("Tableau1[#All,[Projets]]"), SortOn:=xlSortOnValues, _ 
Order:=xlAscending 
ActiveWorkbook.Worksheets("BD").ListObjects("Tableau1").Sort.Apply 
End Sub 

Private Sub Workbook_Open()
ActiveWorkbook.Worksheets("BD").ListObjects("Tableau1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("BD").ListObjects("Tableau1").Sort.SortFields. _
Add Key:=Range("Tableau1[#All,[Projets]]"), SortOn:=xlSortOnValues, _
Order:=xlAscending
With ActiveWorkbook.Worksheets("BD").ListObjects("Tableau1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Avez-vous une idée de l'erreur qui fait que ça ne fonctionne pas??

Merci pour votre aide!
Claire