afficher les doublons dans une autre plage VBA

=INDEX(B2:B7;MIN(SI(FREQUENCE(EQUIV(A2:A7&B2:B7;A2:A7&B2:B7;0);LIGNE(INDIRECT("1:"&LIGNES(A2:A7))))>1;LIGNE(INDIRECT("1:"&LIGNES(A2:A7))))))

Sub Macro1()
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim dico1 As Object 'déclare la variable dico1 (DICtiOnnaire 1)
Dim dico2 As Object 'déclare la variable dico2 (DICtiOnnaire 2)
Dim cel As Range 'déclare la variable cel (CELlule)

Set dico1 = CreateObject("Scripting.Dictionary") 'définit le dictionnaire dico1
Set dico2 = CreateObject("Scripting.Dictionary") 'définit le dictionnaire dico2
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
    dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée de la colonne 1 (=A)
    Set pl = .Range("A2:A" & dl) 'définit la plage pl
    For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
        'si la valeur de cel concaténée avec la valeur de la cellule en colonne B existe, alimente le dictionnaire 2 avec le message à afficher
        If dico1.exists(cel.Value & "_" & cel.Offset(0, 1).Value) Then dico2.Item("À la date du " & cel.Value & " le client " & cel.Offset(0, 1).Value & " est en double") = ""
        dico1.Item(cel.Value & "_" & cel.Offset(0, 1).Value) = "" 'alimente le dico1
    Next cel 'prochaine cellule de la boucle
    'si le dico2 n'est pas vide'place les doublons dans la colonne D à partir de D1
    If dico2.Count > 0 Then .Range("D1").Resize(dico2.Count, 1) = Application.Transpose(dico2.keys)
End With 'fin de la prise en compte de l'onglet "Feuil1"
End Sub

Sub test1()

Set F1 = Worksheets("Feuil1")

T = F1.Range(F1.Cells(2, 1), F1.Cells(7, 3))

D = 1
For i = 1 To UBound(T, 1)
D = D + i
For j = D To UBound(T, 1)
If T(i, 1) & T(i, 2) = T(j, 1) & T(j, 2) Then
T(j, 3) = 1
End If
Next j
Next i

For i = 1 To UBound(T, 1)
If T(i, 3) = 1 Then
F1.Cells(i + 1, 3) = "Doublon"
End If
Next i

End Sub

Sub test1()

Dim F1 As Worksheet
Set F1 = Worksheets("Feuil1")

Dim T() As Variant
T = F1.Range(F1.Cells(2, 1), F1.Cells(7, 2))

ReDim Preserve T(1 To UBound(T, 1), 1 To 3)

D = 1
For i = 1 To UBound(T, 1)
D = D + i
For j = D To UBound(T, 1)
If T(i, 1) & T(i, 2) = T(j, 1) & T(j, 2) Then
T(j, 3) = 1
End If
Next j
Next i

For i = 1 To UBound(T, 1)
If T(i, 3) = 1 Then
F1.Cells(i + 1, 3) = "Doublon"
End If
Next i

End Sub

Sub test1()
 
Dim F1 As Worksheet
 Set F1 = Worksheets("Feuil1")
 
Dim T() As Variant
 T = F1.Range(F1.Cells(2, 7), F1.Cells(10000, 11))
 
ReDim Preserve T(1 To UBound(T, 1), 1 To 6)
 
D = 1
 For i = 1 To UBound(T, 1)
 D = D + i
 For j = D To UBound(T, 1)
 If F1.Cells(1, 3) & F1.Cells(2, 3) = T(j, 1) & T(j, 2) Then
 T(j, 6) = 1
 End If
 Next j
 Next i
 
For i = 1 To UBound(T, 1)
 If T(i, 6) = 1 Then
 F1.Cells(1, 5) = "Après le test affiche la date du " & T(i, 1) & " contient le client  " & T(i, 2)

 End If
 Next i
 
Erase T
End Sub

Sub test1()
   
 Dim F1 As Worksheet
   Set F1 = Worksheets("Feuil1")
   
 Dim T() As Variant
   T = F1.Range(F1.Cells(2, 7), F1.Cells(10000, 11))
   
 ReDim Preserve T(1 To UBound(T, 1), 1 To 6)
   
 'D = 1
  For i = 1 To UBound(T, 1)
   'D = D + i
  'For j = D To UBound(T, 1)
  If F1.Cells(1, 3) & F1.Cells(2, 3) = T(i, 1) & T(i, 2) Then
   T(i, 6) = 1
   End If
   'Next j
  Next i
   
 For i = 1 To UBound(T, 1)
   If T(i, 6) = 1 Then
   F1.Cells(1, 5) = "Après le test affiche la date du " & T(i, 1) & " contient le client  " & T(i, 2)
  
  End If
   Next i
   
 Erase T
  End Sub