Sub copie()
Dim fic As Variant, ficO As Workbook
fic = Application.GetOpenFilename()
Set ficO = Workbooks.Open(fic)
ficO.Worksheets(1).Range("A:A").Copy
ThisWorkbook.Worksheets(1).Range("A1").PasteSpecial (xlValue)
End Sub
Pas compris.car j'ai supprimé le Dim est encore pareil si je laisse workbooks(ficO)
Ou faire simplement l'ex du post #2