Extraire une chaine de caractère

Sub table_correspondance()
     
' As Long car depuis Xl 2007 Integer peut ne pas suffire
Dim i As Long, derlig As Long
Dim t() As String
derlig = Range("A" & Rows.Count).End(xlUp).Row
'Pas besoin de sélectionner
Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("B:B").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Value = "Paramètre"
Range("B1").Value = "Automate"
For i = 2 To derlig
    If Range("C" & i) <> "" Then
        t = Split(Range("C" & i), ",")
        Range("A" & i).Value =t(0)
        Range("B" & i).Value = t(UBound(t) - 3)
    End If
Next i
End Sub

Sub table_correspondance()     
' As Long car depuis Xl 2007 Integer peut ne pas suffire
Dim i As Long, derlig As Long
derlig = Range("A" & Rows.Count).End(xlUp).Row
'Pas besoin de sélectionner
Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("B:B").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Value = "Paramètre"
Range("B1").Value = "Automate"
For i = 2 To derlig
    If Range("C" & i) <> "" Then
        x = Split(Range("C" & i), ",")
        Range("A" & i).Value = x(0)
        Range("B" & i).Value = x(x - 3)
    End If
Next i
End Sub