Trouvé les valeurs Comme dans le graphique

Bonjour

Je voudrais savoir comment il est possible de comblé les trous de la colonne A comme le graphique le réalise

Merci

bonjour,

une proposition

Sub aargh()
    'complete valeurs intermédiaires par regression linéaire
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    i = 1
    Do While i < dl + 5
        If Cells(i, 1) <> "" Then
            If ld = "" Then
                ld = i
            Else
                lf = i
                vd = Cells(ld, 1)
                vf = Cells(lf, 1)
                For j = ld To lf
                    Cells(j, 2) = vd + (j - ld) * (vf - vd) / (lf - ld)
                Next j
                ld = lf
            End If
        End If
        i = i + 1
    Loop
End Sub

C'est géant les macros !

Par contre est-il possible que les valeurs se "fondent" dans les 3 valeurs trouvés ? car elles se cumulent.

car dans mon fichier la dernière valeur est l'addition des 3 valeurs à trouvé il faudrait que les valeurs de

B55+B56+B57+B58 = A58

B51+B52+B53+B54 = A54

etc...

Par avance merci

bonsoir,

Par contre est-il possible que les valeurs se "fondent" dans les 3 valeurs trouvés ? car elles se cumulent.

Je comprends pas.