[RESOLU] Extraction doublon ligne dans plage

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [Q2:U2]) Is Nothing Then Exit Sub
Dim ncol%, x$, ta, tb(), i&, y$, n&, j%
ncol = 4
If Application.Count([Q2:U2]) < 5 Then GoTo 1
x = [Q2] & " " & [R2] & " " & [S2] & " " & [T2] & " " & [U2]
ta = [t] 'matrice, plus rapide
ReDim tb(1 To UBound(ta), 1 To ncol)
For i = 1 To UBound(ta)
  y = ta(i, 6) & " " & ta(i, 7) & " " & ta(i, 8) & " " & ta(i, 9) & " " & ta(i, 10)
  If x = y Then
    n = n + 1
    For j = 1 To 4
      tb(n, j) = ta(i, j)
    Next j
  End If
Next i
'---restitution---
1 Application.Calculation = xlCalculationManual 'mode de calcul manuel
If n Then [L2].Resize(n, ncol) = tb
[L2].Offset(n).Resize(Rows.Count - n - 1, ncol).ClearContents
Application.Calculation = xlCalculationAutomatic 'mode de calcul automatique
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [Q2:U2]) Is Nothing Then Exit Sub
Dim ncol%, x$, ta, tb(), i&, y$, n&, j%
ncol = 4
If Application.Count([Q2:U2]) < 5 Then GoTo 1
x = [Q2] & " " & [R2] & " " & [S2] & " " & [T2] & " " & [U2]
ta = [t] 'matrice, plus rapide
ReDim tb(1 To UBound(ta), 1 To ncol)
For i = 1 To UBound(ta)
  y = ta(i, 6) & " " & ta(i, 7) & " " & ta(i, 8) & " " & ta(i, 9) & " " & ta(i, 10)
  If x = y Then
    n = n + 1
    For j = 1 To 4
      tb(n, j) = ta(i, j)
    Next j
  End If
Next i
'---restitution---
If n Then [L2].Resize(n, ncol) = tb
1 [L2].Offset(n).Resize(Rows.Count - n - 1, ncol) = ""
End Sub