Bonjour, je souhaite convertir un tableau de données, or je ne connais pas la taille de ce tableau :

voila le code que j'ai écrit...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub dams()
 
Dim nbrelignesX, nbrelignesY, nbremaillesX, nbremaillesY, nombrelignescolonnes, tampon2, tampon3 As Double
 
nbremaillesX = Sheets("charm").Cells(1, 8)
nbremaillesY = Sheets("charm").Cells(2, 8)
 
nbrelignesX = nbremaillesX + 1
nbrelignesY = nbremaillesY + 1
 
nbrelignescolonnes = nbremaillesX * nbremaillesY
 
For i = 1 To nbrelignescolonnes - 1
 
Cells(1, i).Select
 Selection.TextToColumns Destination:=Range("Cells(1, i)"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(2, 1), Array(4, 1)), TrailingMinusNumbers:= _
        True
 
Next i
End Sub"
En fait mes problèmes apparaissent quand j'affecte la conversion des données à la celullie (1,i), il ne la reconnait pas et m'affiche une erreur 1004.

que puis-je faire ?

merci d'avance !