Workbooks("FichierA.xlsm").Worksheets("Feuil1").Range("D8").Select
Workbooks("FichierA.xlsm").Worksheets("Feuil1").Range("D8:D100").Copy
MonFichier = Range("A1").Value
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & MonFichier
Worksheets("Feuil1").Range("V2:V100").Select 'Zone selectionnée
Worksheets("Feuil1").Range("V2:V100").Clear 'Zone selectionnée supprimé
Worksheets("Feuil1").Range("V2").Select 'Cellule selectionné pour copier les donnée du fichier A
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False