Bonjour,
je dois faire la somme de plusieurs cellules, toutes séparées entre elles de 6colonnes (la première cellule à sommer est en colonne H soit 8 en Vba) Cette somme doit être la valeur de la cellule B6. Voilà ce que j'ai déjà réalisé.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub somme()
 
Dim J As Integer 'j colonne
Dim s As Integer 'la somme
J = 8
s = 0
 
    For J = 8 To 2114 Step 6
        s = s + Cells(6, J)
    Next J
 
    Cells(6, 2).Value = s
 
End Sub

Petit problème : il y a une incompatibilité de type et je ne sais pas ce que ca veut dire.