cherche oeil avisé pour macro qui cloche

bonjour à tous,

j'aurai besoin de vos lumières pour m'expliquer ce qui cloche avec le code ci-après.
Son but est d'effectuer la macro TriParDate pour toutes les feuilles d'un classeur à partir de la 3eme feuille seulement.
la macro semble s'executer (sablier) et je n'ai pas de message d'erreur mais en fait elle n'execute pas la macro Tripardate.
ca doit etre tout con, quand on sait....

Merci d'avance





Option Explicit

Sub miseAjour()

Dim WS As Worksheet, F As Byte

With ThisWorkbook

For F = 3 To .Sheets.Count
With .Sheets(F)

TriparDate

End With

Next F

End With

End Sub