' Somme nombre heure par jour
If target.Column > 7 And target.Column < 39 Then
Application.EnableEvents = 0
Cells(target.Row, 39).FormulaR1C1 = "=SUM(RC[-31]:RC[-1])" '<--- formule =Somme(Hn:ALn)
Cells(target.Row, 39) = Cells(target.Row, 39).Value '<--- *
Application.EnableEvents = 1
End If