Private Sub Worksheet_Change(ByVal R As Range)
If R.Column > 7 And R.Column < 39 Then
Application.EnableEvents = 0
Cells(R.Row, 39) = Application.Sum(Cells(R.Row, 8).Resize(, 38)) '<--- 33 pour AH sinon 38 pour AL
Cells(R.Row, 39) = Cells(R.Row, 39).Value '<--- *
Application.EnableEvents = 1
End If
End Sub