Sub doublons()
Dim i As Integer, k As Integer, m As Integer
Dim val As Variant, val2 As Variant
Application.Goto Sheets('feuil1').Range('A1')
m = 7
For i = 7 To Range('d65536').End(xlUp).Row
val = Cells(i, 4).Value & Cells(i, 5).Value
For k = Cells(i, 4).Row + 1 To Range('d65536').End(xlUp).Row
val2 = Cells(k, 4).Value & Cells(k, 5).Value
If val = val2 Then
Cells(m, 7).Value = Cells(k, 4).Value
Cells(m, 8).Value = Cells(k, 5).Value
m = m + 1
End If
Next k
Next i
End Sub