Problème de transposition Ligne Colonne en VBA

Bonjour à tous,

Malgré mes recherches sur les divers sujets existants sur le copier collé transposé, avec VBA, sur Excel je ne m'en sors pas...

Je m'explique rapidement : j'ai besoin d'effectuer un copier coller spécial (transposé), d'une colonne (de 15000 lignes), toute les 215 lignes sur 70 ligne de 215 colonnes...
Exemple : Je copie les cellules de A1 à A215 puis les colles transposées de E1 jusqu’à HK1, puis je recommence, je copie de A216 à A430 puis je colle transposé de E2 à HK2 etc...

J'ai commencé un petit code mais il ne fonctionne pas : le message d'erreur suivant s'affiche : "Erreur d'éxécution 1004 : Erreur définie par l'application ou par l'objet"

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Bouch()   Dim i As Integer Dim j As Integer   j = 215   For i = 1 To 69   Range(Cells(1, i * j - 215), Cells(1, i * j)).Copy Cells(i, 5).PasteSpecial Paste:=xlPasteAll, Transpose:=True   Next i   End Sub

---

Je précise que je suis tout à fait conscient de mon niveau médiocre en VBA, et que je ne serai pas étonné que ma faute soit très très bête...
Merci d'avance !

Tu confonds lignes et colonnes dans certains Cells

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Bouch() Dim i As Long Dim j As Long Dim k As Integer   k = 215 j = 0 For i = 1 To Cells(Rows.Count,1).End(xlUp).Row Step k j = j + 1 ' On pourrait l'éviter en divisant (i-1) par k mais c'est plus clair ainsi Range(Cells(i,1), Cells(i+k-1,1)).Copy Cells(j, 5).PasteSpecial Paste:=xlPasteAll, Transpose:=True Next i   End Sub

---