Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 13 And Target.Column < 19 Then
For n = 3 To Range("N" & Rows.Count).End(xlUp).Row
Range("S" & n) = 0
For m = 14 To 18
If Cells(n, m) = "" Then
ajout = 0
Else
ajout = Cells(n, m).Value
End If
If IsNumeric(ajout) Then Range("S" & n) = Range("S" & n) + ajout
Next
ajout = 0
Next
End If
End Sub