Sub exemple_b()
Dim T, Plg As Range, A_COPIER As Range, Choix_Fic, WBK As Workbook, f As Worksheet
Dim pf As Range, Plg2 As Range, fD As Worksheet
'On efface les données précédentes
Set fD = Sheets("DATA")
T = Array("FIFO", "DEVIS", "DEVIS ACCEPTE"): fD.Range("A:AB").Clear
Set Plg = Worksheets("FIFO").Range("A:J"): Plg.Clear: Sheets(T).FillAcrossSheets Plg
With Application
.ScreenUpdating = False
'Choix du fichier Source
Choix_Fic = .GetOpenFilename(Title:="Choisir le classeur Source", FileFilter:="Classeur XL (*.xls*),*xls*")
If Choix_Fic <> False Then
Set WBK =...