probleme importation avec macro

pour ta 2 eme question c juste une histoire de doublon tu les copie et apres tu verifie si il y a des doubles et tu les supprimes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Suppression_des_doublons()
 
 
 
 
Dim Plage As Range, Cel As Range
   Dim Col As New Collection, ASupprimer As Range
 
   With ActiveSheet
        Set Plage = .Range("B2", .Range("B2").End(xlDown))
   End With
 
    For Each Cel In Plage
        On Error Resume Next
        Col.Add Cel, "_" & Cel
        If Err.Number <> 0 Then
           If ASupprimer Is Nothing Then Set ASupprimer = Cel Else _
               Set ASupprimer = Union(ASupprimer, Cel)
        End If
    Next Cel
 
    If Not ASupprimer Is Nothing Then ASupprimer.EntireRow.Delete
 
End Sub

enfin je pense que ca peut t aide mais pour ta 1 er question il faut juste dire a ta macro de copier a la fin de ton fichier?(enfin si j ai bien compris...)