Sub test()
Dim wb As Workbook, IndexW As Integer, IndexR As Integer
Application.ScreenUpdating = False
Chemin = Workbooks(ActiveWorkbook.Name).Path & "\" ' Chemin fichier courant
Set wb = Workbooks.Open(Chemin & "NOM DU FICHIER A COPIER.xlsm") ' Chemin fichier à adapter si necessaire
Windows("NON DU FICHIER ACTUEL.xlsm").Activate
Range("A2:B1000").ClearContents
Set f = Workbooks("NOM DU FICHIER A COPIER.xlsm")
IndexW = 2 'A adapter (n°ligne du fichier actuel)
IndexR = 3 'A adapter (n°ligne du fichier a copier)
While f.Sheets(2).Range("B" & IndexR) <> "" ' Colonne 1
Cells(IndexW, 2) = f.Sheets(2).Range("B" & IndexR)
IndexR = IndexR + 1
IndexW = IndexW + 1
Wend
IndexR = 3
While f.Sheets(2).Range("C" & IndexR) <> "" ' Colonne 2
Cells(IndexW, 2) = f.Sheets(2).Range("C" & IndexR)
IndexR = IndexR + 1
IndexW = IndexW + 1
Wend
End Sub