Vba boucle for dans boucle for next sous condition

Sub ok()
For i = 0 To 10
  For z = 0 To 10
    If Condition Then
       Instruction 1
    End If
  Next z
  Instruction 2
Next i
End Sub

Option Explicit

Sub Tubes()
'CREATION D'UN TABLEAU SANS DOUBLON DES LONGUEUR CANNES
    Dim tabtube()
    Dim nbrsection As Byte
    Dim i As Byte
    Dim j As Byte
    Dim k As Byte
    Dim z As Byte
    Dim lig As Byte
    Dim derniereL

    nbrsection = 2

    lig = 20
    For i = 0 To nbrsection - 1 'autant de fois que de sections
        k = 0
        For j = 1 To tabTrv(i) 'autant de fois que de piquages
            
            If j > 1 Then
                For z = 0 To UBound(tabtube) 'autant de fois que de cellule dans le tableau créé
                'avec tabtube(z,1)= taille du tube et tabtube(z,0) nombre de doublons
                'si le doublon existe
                  If Cells(lig, 3 + j).Value = tabtube(z)(0) Then
                  tabtube(z)(1) = tabtube(z)(1) + 1
                  Exit For
                  End If
                 Next z
            
            If Not Cells(lig, 3 + j).Value = tabtube(z)(0) Then
            End If
            ReDim Preserve tabtube(k)
            tabtube(k) = Array(Cells(lig, 3 + j).Value, 1)
            k = k + 1
            End If
            
        Next j
        lig = lig + 5
    Next i

End Sub