Recherche une petite macro

Sub test()
    temps = Timer
    Fichier = Dir("F:\_Docs_Prog_Excel\*.*")
    Do While Fichier <> ""
        FichierM = UCase(Fichier)
        Name "F:\_Docs_Prog_Excel\" & Fichier As "F:\_Docs_Prog_Excel\" & FichierM
        Fichier = Dir
    Loop
    MsgBox "temps: " & Timer - temps
End Sub

mais comment je fais si je veux une majuscule a chaque mot Ex Le Grand Cirque.Avi

Sub Renomme_Fichier()
    With Worksheets("feuil1")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row         'derniere cellule non vide colonne A
        Tlist = .Range("A1:A" & derlig).Value       'mise en memoire palge d'infos
    End With
    If derlig = 1 Then
        Nb = 1
    Else
        Nb = UBound(Tlist)
    End If
    'boucle sur le tableau infos colonne A
    For N = 1 To Nb
        If Nb > 1 Then
            Fichier = Tlist(N, 1)
        Else
            Fichier = Tlist
        End If
        'renomme fichier
        Name "H:\" & Fichier As "H:\" & Fichier
    Next N
End Sub

Name "H:\" & Fichier As "H:\" & Fichier

Name "H:\" & FichierColA As "H:\" & FichierColJ

Sub Change_nom_Fichier()
    Dim Change_Nom As Boolean
    
    With Worksheets("feuil1")
        Derlig = .Range("A" & Rows.Count).End(xlUp).Row         'derniere cellule non vide colonne A
        TlistA = .Range("A1:A" & Derlig).Value       'mise en memoire plage d'infos
        TlistJ = .Range("J1:J" & Derlig).Value       'mise en memoire plage d'infos
    End With
    If Derlig = 1 Then
        Nb = 1
    Else
        Nb = UBound(TlistA)
    End If
    'boucle sur le tableau infos colonne A
    Change_Nom = False
    For N = 1 To Nb
        If Nb > 1 Then
            If TlistJ(N, 1) <> "" And TlistJ(N, 1) <> TlistA(N, 1) Then
                FichierColA = TlistA(N, 1)
                FichierColJ = TlistJ(N, 1)
                Change_Nom = True
            End If
        Else
            If TlistJ <> "" And TlistJ <> TlistA Then
                FichierColA = TlistA
                FichierColJ = TlistJ
                Change_Nom = True
            End If
        End If
        'renomme fichier
        If Change_Nom Then
            Name "H:\" & FichierColA As "H:\" & FichierColJ
        End If
        Change_Nom = False
    Next N
End Sub

 Sub Renomme_Fichier()

Style_nom_Fichier()