récupération cellule couleur

[narvalot]

Bonjour le forum,

Je n'arrive pas à intégrer une ligne dans la maroro pour récupérer les cellules jaunes qui sont dans un autre fichiers, voici mon code,

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("X22")) Is Nothing Then
Call Récup(Target)
End If
End Sub
Private Sub Récup(Fichier As Range)
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim Wbk_A As Workbook
Dim Wbk_Source As Workbook
Dim Ligne_Source As Long, Ligne As Long
Set Wbk_A = ThisWorkbook
Wbk_A.Sheets("A").Range("AB3:AB100").Value = ""
Set Wbk_Source = Workbooks.Open(Workbooks(ActiveWorkbook.Name).Path & "\" & Fichier.Value)
Ligne_Source = 4
Ligne = 3
Do
If Wbk_Source.Sheets("Vue globale").Cells(Ligne_Source, 1).Value = "" Then Exit Do
Wbk_A.Sheets("A").Cells(Ligne, 28).Value = Wbk_Source.Sheets("Vue globale").Cells(Ligne_Source, 1).Value
Ligne = Ligne + 1
Ligne_Source = Ligne_Source + 1
Loop
Wbk_Source.Close
End Sub

Par avance, merci pour votre talent