Option Explicit
Sub test()
Dim Classeur As Variant, classeurSource As Workbook, classeurDestination As Workbook
Classeur = Application.GetOpenFilename
If VarType(Classeur) = vbBoolean Then Exit Sub
Set classeurSource = Workbooks.Open(Classeur)
Set classeurDestination = ThisWorkbook
'copier les données de la feuille"FF" du classeur source vers la feuille "Feuil2" du classeur destination
classeurSource.Sheets("FF").Cells.Copy classeurDestination.Sheets("Feuil2").Range("A1")
'fermer le classeur source
classeurSource.Close False
End Sub