Sub Extraction()
Dim DerLig&, tablo(), tablo2(), i&, j&, k As Byte
DerLig = Range("A" & Rows.Count).End(xlUp).Row
Range("I2:P" & DerLig).ClearContents
j = 1
For i = 1 To DerLig Step 6
ReDim Preserve tablo(1 To j)
tablo(j) = Format(Cells(i, 3), "hh:mm:ss")
j = j + 1
Next i
Cells(2, 9).Resize(UBound(tablo)) = Application.Transpose(tablo)
For k = 1 To 6
j = 1
For i = 2 To DerLig Step 6
ReDim Preserve tablo2(1 To j)
tablo2(j) = Cells(i, k)
j = j + 1
Next i
Cells(2, k + 9).Resize(UBound(tablo2)) = Application.Transpose(tablo2)
Next k
DerLig = Cells(2, k + 8).End(xlDown).Row
Range(Cells(2, 12), Cells(DerLig, 12)).NumberFormat = "000000.00"
Range(Cells(2, 14), Cells(DerLig, 14)).NumberFormat = "000000.00"
End Sub