Mettre la première ligne de chaque PLAGE copiée en couleur avec

BONJOUR à toutes et tous. Avec VBA de sources :pijaku je n'arrive pas à mettre la première ligne des plages copiées en Couleur ce que je fais fonctionne seulement sur la première plage copier, je réussi avec VBA qui prend en compte le nom inscrit dans une cellule mais la première ligne n'est pas toujours identique. Voici mon code. PS toujours faible en VBA etc. MERCI
Sub COPIElesCLASSEURSrefait()
'COPIERdesDOSSIERS_FERMEESquiCOMMENCENTtousIDENTIQUE
' 'http://excel.developpez.com/faq/?page=FichiersDir#BoucleFichiers
'Sources :pijaku
Dim Chemin As String, fichier As String, Feuille As String, MotCommun As String
Dim Cpt As Integer, DrLig As Long
Dim ClasseurRecap As Workbook, Wsh As Worksheet, FeuilRecap As Worksheet
Dim Temps
Temps = Timer
'ClasseurRecap = notre classeur de récap
Set ClasseurRecap = ThisWorkbook

'---------------------------- A ADAPTER :--------------------------------------
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Set Wsh = ClasseurRecap.Sheets(3) 'Sheets(2) est le N°de la feuille du classeur
'Réception qui doit être vide VIDE VIDE VIDE!et derrière la feuille recap
'au besoin changer le nom de cette feuille
Set FeuilRecap = ClasseurRecap.Sheets(2) 'Sheets(1) est le N°de la feuille du classeur de récup
'dans laquelle tu souhaites regrouper tes données et devant la feuille réception
Chemin = "C:\Users\Desktop\REFAIT_2014\" 'Chemin d'accès au répertoire
Feuille = "inscription" 'nom de feuille identique des différents classeurs à regrouper
MotCommun = "classeur_" 'classeurs commencent tous par un mot identique mettre ici ce mot
'--------------------------- FIN ADAPTATIONS ---------------------------------
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

'Initialisation du compteur de fichiers traités
Cpt = 0
'Boucle sur tous les fichiers xls du répertoire.
fichier = Dir(Chemin & "*.xls")
Do While Len(fichier) > 0
If Left(fichier, Len(MotCommun)) = MotCommun Then
'Incrémentation du compteur de fichiers
Cpt = Cpt + 1
ClasseurRecap.Names.Add "plage", RefersTo:="='" & Chemin & "[" & fichier & "]" & Feuille & "'!$A$5:$J$70"
With FeuilRecap
DrLig = .Range("C" & Rows.Count).End(xlUp).Row + 1
End With
With Wsh
.Range("A5:J70") = "=plage"
.Range("A5:J70").Copy 'COPIE PLAGE DANS LA FEUILLE RECAPITULE
' Sub premiereLIGNEenCOULEUR()
Dim Interior As Variant
Range("A5").CurrentRegion.Rows(1).Select
Selection.Interior.ColorIndex = 8
' End Sub
FeuilRecap.Range("A" & DrLig).PasteSpecial xlPasteValues
.Range("A5:J70").Clear 'EFFACE DANS LA FEUILLE qui doit être vide VIDE VIDE VIDE!
End With
End If
fichier = Dir()
Loop
End Sub