Argument ou appel de procédure incorrect

Bonjour,

J'ai un problème avec une fonction VBA,

J'ai un classeur Excel dans lequel, une des feuilles (Delivered TCD) contient un TCD. Ne voulant pas utilisé le filtre par défaut du TCD, j'ai créé une liste déroulante avec les valeurs que je veux comme valeurs de filtre et je met à jour le filtre du tcd par une fonction vba.

Le soucis c'est que si j'enregistre le classeur sous format .xls, le fonction marche bien mais en enregistrant sous format .xlsm, j'ai comme erreur "Argument ou appel de procédure incorrect" (aprés avoir changer la valeur du filtre plusieurs fois car la prémière fois y'a pas d'erreur ).

Le fichier est à télécharger ici:

Help please !

Merci d'avance

Bonsoir,

c'est pas trop ma tasse de thé mais essaie voir :

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Delivered TCD").Unprotect Password:="toto"
If Target.Address = "$D$5" Then
   [D8] = Target
Sheets("Delivered TCD").Unprotect Password:="toto"
   [D23] = Target
End If
Sheets("Delivered TCD").Protect Password:="toto"
End Sub

A+

Bonjour Galopin,

Ça marche très bien ta solution.

Merci beaucoup !!!!