Bonjour, je cherche à concatener deux fichiers excel qui ont les mêmes colonnes, voila mon code et le problème se situe à la ligne que j'ai mi en gras, de l'aide svp.
Sub ajouterClasseur()
Application.DisplayAlerts = False
classeur = InputBox("Entrer le nom du classeur que vous voulez importer", "Saisie", ".xls" )
Workbooks(classeur).Worksheets("draji" ).Range("A1" ).CurrentRegion.Select
Selection.Copy
Dim PremLiVide As Long
PremLiVide = Columns(1).Find("", [A1], , , xlByRows, xlByNext).Row
Workbooks("Testa2.xls" ).Worksheets("Feuil1" ).Cells(PremLiVide, 1).Select
ActiveSheet.Paste
Application.DisplayAlerts = True
End Sub