Boucle sur des colonnes qui ne se suivent pas

Bonjour

For Ligne = 1 To Counter 
    For colonne = ??   
        procédure ....
    Next colonne
Next Ligne

Comment faire pour prendre en compte uniquement les colonnes 2, 4 à 5, 7 à 10

Bonjour,

2 façons de faire parmi d'autres,

Sub aargh()
    For Ligne = 1 To Counter
        For colonne = 1 To 10
            Select Case colonne
                Case 2, 4, 5, 7 to 10
                    'procédure ....
            End Select
        Next Ligne
End Sub

Sub aargh1()
    For Ligne = 1 To Counter
        For Each colonne In Split("2,4,5,7,8,9,10", ",")
            'procédure ....
        Next
    Next Ligne
End Sub

Super

Merci h2so4