Bonsoir

Voila je n'arrive pas à copier cette première cellule sur la premiere ligne vide de Wbk2
Il me copie la cellule dans le bonne colonne mais sur la ligne 5160 alors qu'il n'y a rien entre cette ligne et la deuxième !?
Qu'est-ce qui cloche ? dois-je mettre un Target quelque part ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Copy_Tab()
Dim chem1 As String
Dim Wbk1 As Workbook
Dim Wbk2 As Workbook
Dim Derlig1 As Long
 
chem1 = Application.GetOpenFilename
Derlig1 = Cells.Find("*", , , , , xlPrevious).Row
 
    Set Wbk1 = ThisWorkbook
    Set Wbk2 = Workbooks.Open(Filename:=chem1)
        Wbk1.Worksheets("AMANDA").Range("B1").Copy Destination:=Wbk2.Worksheets("Feuil1").Range("B" & Derlig1 + 1)
 
End Sub
Merci de votre aide