Private Sub Results_Click()
Dim pl As Integer 'déclare la variable pl (Première Ligne)
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
With Sheets("RM&C Production") 'prend en compte l'onglet "RM&C Production"
'définit la premièr ligne pl de la colonne J (1 si J1 n'est pas vide, sinon la première ligne éditée de la colonne J)
pl = IIf(.Range("J1") <> "", 1, .Range("J1").End(xlDown).Row)
'définit la dernière ligne dl de la colonne J
dl = .Cells(Application.Rows.Count, 10).End(xlUp).Row
.Cells(dl + 1, 9).Value = "Total" 'place "Total" en cellule ligne dl+1, colonne I
'place la somme de la plage pl:dl de la colonne J en cellule ligne dl+1, colonne J
.Cells(dl + 1, 10).Value = Application.WorksheetFunction.Sum(Range(.Cells(pl, 10), .Cells(dl, 10)))
End With 'fin de la prise en compte de l'onglet "RM&C Production"
End Sub