Bonjour Hicham, bonjour le forum,
La règle d'or en VBA c'est d'éviter les Select ou Activate inutiles autant que tu le peux. Ils ne font que ralentir l'exécution du code et sont source de nombreux bugs.
Ton code modifié (si j'ai bien tout compris) :
Sub Macro1()
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
DL = Cells(Application.Rows.Count, "D").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne D
Range("J10").FormulaR1C1 = "=SUM(RC[-4]:RC[-1])"
Range("J10").AutoFill Destination:=Range("J10:J" & DL)
With Range("J8:J" & DL).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Columns("J:J").AutoFit
End Sub