Selection de Cellules Multiples et somme

Sub Macro1()
 
Dim a As Byte 'déclare la variable a
Dim deb As Long 'déclare la variable deb
Dim fin As Long 'déclare la variable fin
Dim tot As Variant 'déclare la variable tot
Dim x As Long 'déclare la variable x
 
a = MsgBox("vous devez sélectionner la première cellule de la ligne", vbOKCancel, "Attentio !") 'définit la variable a
If a = vbCancel Then Exit Sub 'condition : si la réponse à a est "Annuler", sort de la procédure
 
deb = ActiveCell.Row 'définit la variable deb
fin = Cells(65536, 1).End(xlUp).Row 'définit la variable fin
 
For x = deb To fin Step 10 'boucle sur toutes les cellules de deb à fin par pas de 10
    tot = tot + Cells(x, 1) 'définit la variable tot
Next x 'prochaine cellule de la boucle
 
MsgBox tot 'message renvoyant la variable tot
 
End Sub