Incrémenter 2 variables lig et col

If col = 14 Then
  col = 2
  increment = increment + 4
End If
Next C

Sub Split_Transpose_Desserte()
Dim lig As Long, i As Long, t(2, 11), n As Byte, s
Application.ScreenUpdating = False
Range("B4:M" & Rows.Count).Clear 'RAZ
lig = 1
For i = 1 To 11
  t(1, i) = "-"
Next
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row + 1
  n = (i - 1) Mod 3
  If n = 0 And i > 1 Then
    [B1:M3].Copy Cells(lig, 2)
    Cells(lig, 2).Resize(3, 12) = t
    lig = lig + 4
  End If
  s = Split(Cells(i, 1) & ", ", ", ") 'au moins 2 éléments
  t(0, 4 * n) = "Trajet : " & s(0) & " - " & s(1)
  t(1, 4 * n) = s(0): t(2, 4 * n) = s(1)
Next
End Sub

Sub Split_Transpose_Desserte4()
'En colonne A, les donnees à splitter
Dim C As Range, Item As Variant, lig As Long
Dim lig1 As Long, col As Byte, h As Byte
Application.ScreenUpdating = False
lig = 2: col = 2
For Each C In Range([A1], Cells(Rows.Count, 1).End(xlUp))
  lig1 = lig
  temp = Replace(C, ", ", " - ")
  For Each Item In Split(C.Value, ", ")
    Cells(lig1, col) = Item
    lig1 = lig1 + 1
  Next Item
  h = lig1 - lig
  'Mise en Forme
  '..........
  'Fin de la Mise en Forme
  col = col + 4
  If col = 14 Then
    lig = [B2:M200].Find("*", , , , xlByRows, xlPrevious).Row + 3
    col = 2
  End If
Next C
Application.ScreenUpdating = True
End Sub