Itération colonne

Bonsoir à tous,

Faire une boucle en ligne, check. Maintenant je m'intéresse à la boucle en colonne.

Macro générique :

Sub set_formule(onglet As String, adr As String, formule As String)

Sheets(onglet).Unprotect

Sheets(onglet).Range(adr).FormulaLocal = formule

Sheets(onglet).Range(adr).Locked = True

Sheets(onglet).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

Macro pour itération :

Sub Test_boucle_colonne()

Call set_formule("Ressources", "D10", "=SOMME(D2:D4)")

End Sub

Voici un exemple, comment pourrais-je faire pour l'incrémenter de D à H par exemple ?

Merci d'avance pour votre aide

Bonsoir,

par exemple

Sub Test_boucle_colonne()
    For i = 4 To 8 ' col
        col = Chr(64 + i) 'convertir  4 à 8 en D à H
        Call set_formule("Ressources", col & "10", "=SOMME(" & col & "2:" & col & "4)") 'utiliser col dans l'appel de la fonction
    Next i
End Sub

Topissime ! MERCI