copy/paste erreur type mismatch

Bonjour,

Je n'ai pas fait de VBA depuis un bout de temps et je ne trouve pas ma reponse sur internet. J'obtiens l'erreur "type mismatch" avec le code ci-dessous. Je pnese qu'il s'agit d'un probleme avec le copy paste entre cells et range, mais je ne sais pas comment le corriger. Une idee?

Merci

Code:

---

1 2 3 4 5 6 7 8 9

Sub Transpo() Dim i, j As Integer i = Range("B4").CurrentRegion.Cells.Count   For j = 1 To i Sheets("X").Range("Tickers").Cells(j).Copy Sheets(BR_list).Range("B" & (-2 + 4 * j)).PasteSpecial Paste:=xlPasteValues Next End Sub

---

Bonjour,

Ce ne serait pas plutôt

Code:

---

Sheets("BR_list").Range("B" & (-2 + 4 * j)).PasteSpecial Paste:=xlPasteValues

---

:question: