Pas possible : c'est la première fois que Tabella apparaît dans le code après la déclaration...
Quel est ton code ? (copié à partir du module et collé).
Voici le bout de mon code :
Dim msg1, msg2, msg3
Dim spazio1 As Integer, spazio2 As Integer, spazio3 As Integer
Dim spazio11 As Integer, spazio22 As Integer, spazio33 As Integer
Dim p As Integer
Dim n As Integer
Dim ciclo&
Dim Tabella() As String
Dim val1 As String, val2 As String, val3 As String
Dim coppia As Double
n = 0
ciclo = 2
If k = 2 Then
i = -1
Do While Not EOF(2)
Line Input #2, msg1
spazio1 = InStr(1, msg1, " ")
spazio2 = InStr(spazio1 + 1, msg1, " ")
val1 = CStr(Left(msg1, InStr(1, msg1, " ") - 1))
val2 = CStr(Mid(msg1, spazio1 + 1, spazio2 - spazio1))
val3 = CStr(Mid(msg1, spazio2 + 1, Len(msg1)))
ReDim Preserve Tabella(i, 2)
Tabella(0, i) = val1
Input #2, Tabella(0, i)
Tabella(1, i) = val2
Input #2, Tabella(1, i)
Tabella(2, i) = val3
Input #2, Tabella(2, i)
i = i + 1
Loop
End If
Je ne comprend pas non plus pourquoi je sors subitement du sub