Macro recherche d'un espace + somme de colonnes

Bonjour Via,

Merci beaucoup pour la réponse !
J'ai modifié un petit peu pour que cela corresponde à ce que je voulais mais l'idée du départ était très bonne.
Voici le code si quelqu'un d'autre pourrait être intéressé par cela.
J'ai sorti les variables vid1 et vid2 de la boucle car sinon j'avais un problème (exemple sur la photo, OP1 sortirait 2.25 au lieu de 2.75 car cellule B6 est vide).
Enfin, j'ai simplement rajouté une condition sur la somme finale pour que cela ne compte que les sommes dont j'ai besoin

Sub somme_partielle()
dercol = 13 ' dernière colonne à traiter A ADAPTER
derlign = 200 ' dernière ligne à traiter A ADAPTER
vid1 = 0
vid2 = 0
For col = 2 To dercol ' boucle sur toutes les colonnes
'RAZ variables
tot = 0
' 1er vide
For lg = 5 To derlign 'boucle sur toutes les lignes
If Cells(lg, col) = "" And Cells(lg + 1, col) <> "" And vid1 = 0 Then vid1 = lg 'si cellule vide et celle du desssous remplie et vid1=0 alors vid1=n° de ligne
Next lg
'2eme vide
For lg = vid1 + 1 To derlign ' boucle sur la ligne après vide jusqu'à dernière
If Cells(lg, col) = "" And Cells(lg - 1, col) <> "" And vid2 = 0 Then vid2 = lg 'si cellule vide et celle du desus remplie et vid2=0 alors vid2=n° de ligne
Next lg

'si vid2=0 total=0 sinon total partiel des lignes entre vid1 et vid2
If vid2 = 0 Then tot = 0 Else tot = Application.WorksheetFunction.Sum(Range(Cells(vid1 + 1, col), Cells(vid2 - 1, col)))
If col > 9 Then Cells(derlign + 2, col) = tot ' inscription du total 2 lignes en dessous de la dernière ligne à traiter

Next col
End Sub


En tout cas, cela a résolu mon problème donc merci beaucoup !
Thorn

Dans mon exemple, la ligne 4 est vide et définit donc le départ de la somme et la ligne 8 est la seconde ligne vide, ce qui doit définir la fin de la somme.

Le 0.5 dans l'OP 2 est après la seconde ligne vide, elle ne doit donc pas être prise en compte

Merci en tout cas

Résolu par la Macro ci-dessous, merci de l'aide en tout cas