Autres Créer tableau automatique et séparation de texte

Sub Transfert()
  Dim i As Long, sh As Worksheet, j As Byte, mavar, n As Long, var1 'déclaration des variables
  Set sh = Sheets("Résultat") affectation de la feuille Résultat à la variable sh
  For i = 2 To Range("A" & Rows.Count).End(xlUp).Row 'boucle de la ligne 2 à la dernière ligne
    If [T_resultat].Item(1, 1) <> "" Then n = [T_resultat].Rows.Count + 1 Else n = 1 'affectation d'une nouvelle ligne
    For j = 1 To 9 'boucle sur les colonnes 1 à 9
      [T_resultat].Item(n, j) = Cells(i, j).Value'nc'est la ligne, j c'est la colonne, i c'est la ligne de la feuille "form...."
      [T_resultat].Item(n + 1, j) = Cells(i, j).Value
    Next 'fin de la boucle
    var1 = Split(Cells(i, 10).Value, ",") split coupe la cellule en fonction du délimiteur (ici la ,)
'résultat dans var1(0) et var1(1)
    mavar = Split(var1(0), "-")                       'ici le délimiteur est le moins- soit 3 résultats
      [T_resultat].Item(n, 10) = mavar(0)
      [T_resultat].Item(n, 11) = mavar(1)
      [T_resultat].Item(n, 12) = mavar(2)
      [T_resultat].Item(n, 13) = Cells(i, 10)
    mavar = Split(var1(1), "-") 'idem
      [T_resultat].Item(n + 1, 10) = mavar(0)
      [T_resultat].Item(n + 1, 11) = mavar(1)
      [T_resultat].Item(n + 1, 12) = mavar(2)
      [T_resultat].Item(n + 1, 13) = Cells(i, 10)
      For j = 11 To 29                    'boucle sur les colonnes 11 à 29
        If j = 23 Then            'si colonne 23 texte devient numérique
         [T_resultat].Item(n, j + 3) = Val(Cells(i, j).Value)
         [T_resultat].Item(n + 1, j + 3) = Val(Cells(i, j).Value)
        Else
         [T_resultat].Item(n, j + 3) = Cells(i, j).Value
         [T_resultat].Item(n + 1, j + 3) = Cells(i, j).Value
       End If
      Next
  Next
End Sub