Sub transpose()
Sheets("Feuil1").Range("D2:D401").Value = Sheets("Feuil1").Range("B2:B401").Value
End Sub
Sub transpose()
For i = 2 To 401
Sheets("Données").Range("D2").Offset(o + j, i - k - 2).Value = Sheets("Données").Range("B" & i).Value: If Sheets("Données").Range("D2").Offset(o + j, i - k - 2).Column = 11 Then j = j + 1: k = 8 * j
Next
End Sub