Ouvrir 2 fichiers excel dans le même classeur

Dim dv1 As Object
Dim cel As Range
Dim d°L As Long
  ' Mémoriser les valeurs de la feuille 1 sans doublon
  Set dv1 = CreateObject("Scripting.Dictionary")
  With Worksheets(1)
    d°L = .Cells(.Rows.Count, "A").End(xlUp).Row
    For Each cel In .Range("A1:A" & d°L)
      dv1(cel.Value) = ""
    Next
  End With

Private Sub cp()
Dim classeur1 As Workbook, classeur2 As Workbook
Set classeur1 = ThisWorkbook
Set classeur2 = ThisWorkbook
classeur1.Worksheets(1).Copy After:=classeur2.Worksheets(1)
End Sub

Discussions similaires