Excel et VBA

Bonjour le forum,

Je pêche sur le Vb et Excel voici ma requete :
-J'ai un dossier (Carnet de bord)
-Qui contient 5 fichier .xls
-Chaqun des fichiers contient un ou plusieurs onglet
-Chaqun des onglet contient un champ de type "date"
-J'ai un sixième fichier qui fait une sorte de synthèse des côut de maintenance de mes 5 fichiers

Actuellement je fait un filtre manuel, cependant je dois faire cette manipulation pour chaque onglet de chaque fichier, ce qui est long et fastidieu.Donc je souhaite automatiser la tâche car on me demande en ce moment de sortir les stats de date à date :

Voila ce que j'ai fait jusqu'a présent (nota: je redécouvre le VB ):

Code :

Private Sub OuvrirFichiers()
       
    Dim Fichier As String, Chemin As String
    Dim Wb As Workbook
    
    Chemin = "H:\Carnets de bord\"
    Fichier = Dir(Chemin & "*.xls")
    
    Do While Fichier <> ""
        Set Wb = Workbooks.Open(Chemin & Fichier)
        'Wb.Close
        Set Wb = Nothing
        Fichier = Dir
    Loop
    
End Sub
 
Private Sub Cmd_Go_Click()
 
'Appel de la fonction qui ouvre tous les fichiers
Call OuvrirFichiers
 
Dim objFeuille As Worksheet
Dim objPlage As Range
 
'Test de la valeur des champs date de début et date de fin '
If Me.Txt_DateDebut.Value = "" Or Me.txt_DateFin.Value = "" Then
  MsgBox "Attention Claude il faut renseigner les valeurs."
  Me.Txt_DateDebut.SetFocus
  Exit Sub
End If
 
For Each objFeuille In ActiveWorkbook.Worksheets
    'Pour les tests j'écrit des trucs dans mes feuilles voir comment faire un filtre'
    Range("A65536").End(xlUp).Offset(1, 0).Value = Txt_DateDebut.Value
    Range("B65536").End(xlUp).Offset(1, 0).Value = txt_DateFin.Value
Next
 
End Sub

Si quelqu'un à une piste car mon truc fait des truc mais rien de bien gratifiant
Merci