Sub Recopiage_II()
Dim lDeb&, lFin&, WBK As Workbook, Plg As Range
lDeb = Application.Match("additif", Columns(2), 0) + 1
lFin = Cells(Rows.Count, 2).End(3).Row
Set Plg = Range(Cells(lDeb, 2), Cells(lFin, 2))
'ici j"ouvre une fenetre pour allez chercher mon fichier et coller dans ce fichier
Fichier = Application.GetOpenFilename("Classeur (*.xls),*.xls,Classeur (*.xlsx),*.xlsx,Classeur (*.xlsm),*.xlsm")
If Fichier <> False Then
Set WBK = Workbooks.Open(Fichier)
End If
'ici on recopie dans sur la feuille 1 du classeur ouvert GetOpenFilename
Plg.Copy WBK.Sheets(1).[A1]
End Sub