Enregistrement de feuilles de différents classeur ver un unique classeur

Bonjour, j'aimerais historiser des données journalières pour créer un mensuel. De ce fait, j'aimerais faire une macro. Malheureusement je bloque sur certains points. J'ai deja fait une macro pour creer le rapport journalier en PDF. Maintenant j'aimerais pouvoir enregistrer journalierement les données des différents rapport au format excel dans un même classeur pour pouvoir traiter les données pour en faire un rapport mensuel. :'(

Sub Actualiser()

If Hour(Now) > 7 Then
Msg = Msg & "Voulez-vous mettre à jour le rapport ?"
reponse = MsgBox(Msg, 4 + 32)
If reponse = 6 Then
ActiveWorkbook.RefreshAll

Dim LeDate As String
LaDate = Format(Date, "yyyy" & "mm" & "dd")
ActiveSheet.Range("A2").Value = Date
Sheets(Array("Rapport_H24", "KPI", "Rapport_detail")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\XXXXConfidentiel
OpenAfterPublish:=False
' Message de confirmation
MsgBox ("Création du fichier PDF effectué")
Else
End If
Else
Msg = "Attendre 8h pour créer le Rapport Journalier"
MsgBox Msg, 48, "Mise a jour"
End If
End Sub