Modification de boucle

Bonjours le forum

Voila mon petit soussi j'ai un program qui me permet de copier automatiquement mes données de mon fichier "facture" vers mon fichier "SuiviClient " .Ses èlèments sont le N° de facture ,la dates de la facture,et le montant de la facture. J'ai certain client qui me demande une facture par prestations ,hors à la base du programe cela n'ètait pas prèvu.
je voudrais donc savoir si il est possible de modifier mon program pour qu'il prenne en compte les èlèments des factures annex pour les copier dans le fichier "suiviClient" en face du client conserné.
Malgré mais tentative de modifier le programme mais cela à èchouè .
je me tourne donc vers vous dans l'espoir que vous pourez m'aider à rèsoudre se petit problème .

les informations à copier sont :
1 - Pour la "refClient" :"C16"
2 - les feuilles consernées : Sheets"AnnexFacture1" et "AnnexFacture2"
3- les cellules : sont les mêmes que pour la feuille "Facture" C'est-à-dire ("C16",F12","G39")
4- Pour la "refClient" :"C17" il n'y a que la feuille "AnnexFacture1" à ajouter

Ci-joint le programme conserné :

'Déclare le Chemin2 vers "SC.xls"
Dim Chemin2 As String
'Dèclare la variable Wb4
Dim Wb4 As Workbook
'Declare la Variable C
Dim C As String
'Declare la Variable MPl
Dim MP As Range
'Declare la Variable R
Dim R As Range


'Dèfinit la varible Client
C = Workbooks("F.Xls").Sheets("Détail").Range("G3").Value
'Dèfinit la varible Chemin2
Chemin2 = "C:\RAPID\GESTION\Sc.XLS"
'Dèfinit la varaible Wb4
Set Wb4 = Workbooks.Open(Chemin2)
'Dèfinit la variable MaPlage
Set MP = Workbooks("SC.xls").Sheets(Mois).Range("A4:A" & Range("A65536").End(xlUp).Row)

'Boucle sur la plage R et MP
For Each R In MP
'Défintit la condition de la plage p
If R.Value = C Then
'Définit et envoie les valeures vers le classeur "SC.XLS"
With Wb2.Sheets("Facture")
.Range("C16").Copy
End With
R.Offset(0, 3).PasteSpecial xlPasteValues

With Wb2.Sheets("Facture")
.Range("F12").Copy
End With
R.Offset(0, 4).PasteSpecial xlPasteValues

With Wb2.Sheets("Facture")
.Range("G39").Copy
End With
R.Offset(0, 5).PasteSpecial xlPasteValues

'Sort de la boucle
Exit For
'Fin de Condition
End If
'Sort de la plage p
Next R

Application.CutCopyMode = False
'Enregistre les données du classeur "SC.XLS"

Wb4.Save
'Ferme le Classeur "SC.XLS"
Wb4.Close

Vous remerciant par avance de l'aide que vous pourez m'apporter je vous dit à plus sur ce fil.
br44
End Sub