Atteindre les dernieres lignes

Bonjour,

Je souhaite atteindre les 2 dernières lignes saisies en dynamique et calculer une variation en valeur absolue et relative. Je comprends que je dois décaler mais en valeur absolue ça ne marche pas. Merci

Cldt

Bonjour,

Double-clic sur "A1" pour actualiser

(prend comme départ la dernière ligne en colonne "A")

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Lg&
    If Not Application.Intersect(Target, Range("a1")) Is Nothing Then
        Lg = Range("a" & Rows.Count).End(xlUp).Row
        Range("b2:e2") = "=b" & Lg + 1 & "/b" & Lg
        Range("b3:e3") = "=b" & Lg + 1 & "-b" & Lg
        Range("a2").Activate
    End If
End Sub

Amicalement

Claude

Merci beaucoup