Private Sub CommandButton1_Click()
Dim T1, T2, i As Long, dico
With Worksheets("Sheet1")
T1 = .Range("A1:F" & .Range("A" & Rows.Count).End(xlUp).Row)
ReDim T2(1 To UBound(T1, 1), 1 To UBound(T1, 2) - 1)
For i = UBound(T1) To LBound(T1) + 1 Step -1
x = x + 1
For j = LBound(T2, 2) To UBound(T2, 2)
T2(x, j) = T1(i, j)
Next
While T1(i, 5) = T1(i - 1, 5)
i = i - 1
Wend
T2(x, 2) = T1(i, 2)
T2(x, 4) = T1(i, 4)
Next
.Range("H7").Resize(x, UBound(T2, 2)) = T2
End With
End Sub