Problème de macro pour calculer un ROI

Bonjour forum, j'ai un petit souci de macro pour mettre mes formules dans les cellules concernées, je m'explique vu que chaque jour le nombre de ligne est différent, la formule ne prend plus en charge la bonne plage de cellule. Vu que je rempli mon fichier au jour le jour la formule a mettre serait en dernière ligne colonne M,N ,O, P et la plage M2:M29 est différente le jours suivant et ainsi de suite, j'espère avoir été claire dans mes explications.

Un peu d'aide serait le bienvenue merci d'avance.voir PJ

Sub Formules()
    Dim Nblig As Long
    On Error Resume Next

            With Sheets("Feuil1")
                .Select
                Nblig = .Cells(Rows.Count, "A").End(xlUp).Row
                If Nblig = 1 Then Exit Sub
                .range("M" & Nblig) = "=SUM(RC[2]/RC[1]-1)"
                .range("N" & Nblig) = "=SUM(R[-27]C[-7]:RC[-7])"
                .range("O" & Nblig) = "=SUM(R[-27]C[-6]:RC[-6])"
                .range("P" & Nblig) = "=SUM(RC[-1]-RC[-2])"
                 End With

End Sub

bonjour Stepaustras,

Sub Formules()
     Dim Nblig As Long, iDébut
     With Sheets("Feuil1")
          Nblig = .Cells(Rows.Count, "A").End(xlUp).Row     'dernière ligne
          If Nblig = 1 Then Exit Sub
          iDébut = Application.Match(CDbl(.Cells(Nblig, "A").Value), .Columns("A"), 0)     'première ligne avec ce date
          If Not IsNumeric(iDébut) Then MsgBox "problème": Exit Sub
          .Range("M" & Nblig) = "=SUM(RC[2]/RC[1]-1)"
          .Range("N" & Nblig) = "=SUM(R" & iDébut & "C[-7]:RC[-7])"
          .Range("O" & Nblig) = "=SUM(R" & iDébut & "C[-6]:RC[-6])"
          .Range("P" & Nblig) = "=SUM(RC[-1]-RC[-2])"
     End With
End Sub

Bah merci beaucoup BsAlv cela fonctionne nickel, au début j'avais pas compris cela ne marchais pas, c'est parce que j'avais mis la même date sur deux derniers jours mais c'est nickel