Re,
Si on utilise ce qui a été vu plus haut ça donne :
Sub Macro1()
Dim DC As Integer 'déclare la variable DC (Dernière Colonne)
Dim PLV As Long 'déclare la variable PLV (Première Ligne Vide)
'définit la dernière colonne éditée DC de la ligne 1 de l'onglet "Feuil1"
DC = Sheets("Feuil1").Cells(1, Application.Columns.Count).End(xlToLeft).Column
PLV = Cells(Application.Rows.Count, DC).End(xlUp).Row + 1
Sheets("Feuil1").Cells(PLV, DC+1).FormulaR1C1 = "=RC[-1]-RC[-2]"
End Sub
Mais si tu dois le faire pour toutes les lignes ça donnerait :
Sub Macro3()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DC As Integer 'déclare la variable DC (Dernière Colonne)
Dim DL As Long 'déclare la variable DL (Dernière Ligne)
Set O = Worksheets("Feuil1") 'définit l'onglet O
'définit la dernière colonne éditée DC de la ligne 1 de l'onglet O
DC = O.Cells(1, Application.Columns.Count).End(xlToLeft).Column
'définit la dernière cellule éditée DL de la colonne A de l'onglet O
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row
O.Cells(2, DC + 1).FormulaR1C1 = "=RC[-1]-RC[-2]" 'place la formule dans la cellule ligne 2 colonne DC
'étire la formule vers le bas jusqu'a la dernière ligne DL
O.Cells(2, DC + 1).AutoFill Destination:=O.Range(O.Cells(2, DC + 1), O.Cells(DL, DC + 1)), Type:=xlFillDefault
End Sub