Sub test_2()
Dim i&, j&, K&, Tmp$
Dim TData As Variant, TReport As Variant, D As Object
Set D = CreateObject("Scripting.Dictionary")
With Sheets("HOMMES")
TData = .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(3).Row, 65))
End With
ReDim TReport(1 To UBound(TData, 1), 1 To UBound(TData, 2))
For i = LBound(TData, 1) To UBound(TData, 1)
Tmp = Trim(Replace(TData(i, 1), Chr(160), ""))
If Tmp <> "" Then D(Tmp) = ""
j = Application.Match(Tmp, D.Keys, 0)
For K = LBound(TData, 2) To UBound(TData, 2)
If Trim(Replace(TData(i, K), Chr(160), "")) <> "" Then _
TReport(j, K) = TData(i, K)
Next K
Next i
With Sheets("Résultat")
.Rows("2:" & .Cells(Rows.Count, 1).End(xlDown).Row).ClearContents
.Cells(2, 1).Resize(D.Count, UBound(TReport, 2)) = TReport
End With
End Sub