Sub manu()
Dim dernlign As Long


Windows("nom_fichier_destinataire.xlsm").Activate //ce code permet le saut de ligne si la ligne est déjà remplie
    
    dernlign = Range("B" & Rows.Count).End(xlUp).Row + 1

Windows("nom_fichier_source.xlsm").Activate //activation du fichier dont vous voulez copier les données

    Range("E6").Select //colonne et ligne de la cellule où vous voulez copiez la donnée
    Selection.Copy
    
Windows("nom_fichier_destinataire.xlsm").Activate //activation du fichier où vous voulez coller les données

    Range("B" & dernlign).Select //sélectionne la colonne où vous voulez collez la donnée et la colle automatiquement à une nouvelle ligne vierge
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


End Sub