Ta boucle est mal construite.
Sub transpose()
Dim i As Long, j As Integer, k As Integer
k = 3
With Sheets("Données")
For i = 3 To .Range("B" & .Rows.Count).End(xlUp).Row Step 6
For j = 1 To 6
.Cells(k, j + 6) = .Cells(i + j - 1, 2)
Next j
k = k + 1
Next i
End With
End Sub
Ta boucle est mal construite.
Sub transpose()
Dim i As Long, j As Integer, k As Integer
k = 3
With Sheets("Données")
For i = 3 To .Range("B" & .Rows.Count).End(xlUp).Row Step 6
For j = 1 To 6
.Cells(k, j + 6) = .Cells(i + j - 1, 2)
Next j
k = k + 1
Next i
End With
End Sub