Probleme transpose macro VBA Excel

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 :

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 !

Bonjour,

Essaie comme cela

Sub Bouch()
Dim DerLig As Long, LigneS As Long, LigneC As Long
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    LigneC = 1
    For LigneS = 1 To DerLig Step 215
        Cells(LigneS, 1).Resize(215).Copy
        Cells(LigneC, 5).PasteSpecial Paste:=xlPasteAll, Transpose:=True
        LigneC = LigneC + 1
    Next LigneS
End Sub

A+

Bonjour

Bonjour frangy

Ma petite cogitation qui ressemble beaucoup à celle de frangy

Sub Bouch()
Dim I As Integer

  Application.ScreenUpdating = False
  For I = 0 To 69
    Cells(1 + (I * 215), "A").Resize(215).Copy
    Cells(I + 1, "E").PasteSpecial Paste:=xlPasteAll, Transpose:=True
  Next I

End Sub

Super !! Les deux marchent apparemment !

Merci beaucoup pour la réactivité.