Fusion de classeur avec report de la couleur partiellement effectué

Bonjour,

J'ai mis à profil le confinement pour bosser un peu mon VBA, mais je reste novice.

J'ai entrepris de créer un document pour récupérer (fusionner) des documents qui ont tous la même forme (extraction d'un logiciel).

Les données sont correctement copier mais pas le remplissage coloré des cellules. Or c'est le plus important de ma base.

Quelqu'un aurait-il une solution ?

Merci d'avance,

Martin

Sub RecupDonnees()
    Dim FichierAOuvrir
    Dim i As Integer
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set F1 = Sheets("Liste")
    Set F2 = Sheets("Produit dans une tâche")

    F1.Select
    ChDrive Cells(2, 1)
    Chemin = Cells(2, 2) & "/"
    ReDim FichierAOuvrir([C1000].End(xlUp).Row - 1) As String
    NbFichiers = [C1000].End(xlUp).Row - 1
    For i = 1 To NbFichiers
        If Cells(i + 1, 3) = "" Then GoTo Recup
        FichierAOuvrir(i) = Cells(i + 1, 3)
    Next i

Recup:
    F2.Select
    For i = 1 To NbFichiers
        Workbooks.Open Chemin & FichierAOuvrir(i)
        Sheets(7).Select
        Range(Cells(6, 1), Cells([A100000].End(xlUp).Row, 126)).Copy
        ActiveWorkbook.Close
        Range("A" & [A1000000].End(xlUp).Row + 1).Select
        ActiveSheet.Paste
    Next i
    End Sub