Incompatibilité de type - tableaux vba et chaine de caractère

Sub TableauxPlancher()
'permet de faire les tableaux en VBA et non avec une feuille excel, chaque tableau est
'alors défini comme une variable. Beaucoup plus rapide pour le traitement des données

'Dim tab1() As String, tab2() As String, tab3() As String, tab4() As String, tab5() As String, tab6() As String, tab7() As String, tab8() As String
Dim tabP() As Double
Dim tabPfinal(8, 8) As Double
Dim i, j, n As Integer
Dim Montab As Variant


tabP = Split(mesureP1 & "," & mesureP2 & "," & mesureP3 & "," & mesureP4 & "," & mesureP5 & "," & mesureP6 & "," & mesureP7 & "," & mesureP8, ",")

n = 0
For i = 0 To 7
For j = 0 To 7

tabPfinal(i, j) = CDbl(tabP(n))
n = n + 1

Next j
Next i

Range("B31:I38") = tabPfinal

Cliquez pour agrandir...