Private Sub Worksheet_Change(ByVal Target As Range)
Dim MaCol As Integer, MaLig As Integer, MaSomme As Long
If Target.Count > 1 Then Exit Sub
If Target.Column > 3 And Target.Column < 14 Then
MaCol = Target.Column
MaLig = Target.Row
If Not IsEmpty(Cells(1, MaCol)) Then
If MaLig = 5 And [$B$5] <> Target And Target > "0" Then MesPerso [$A$5], MaCol
If MaLig >= 6 And MaLig <= 11 Then
MaSomme = Application.Sum(Range(Cells(6, MaCol), Cells(11, MaCol)))
If [$B$6] <> MaSomme And MaSomme > 0 Then MesPerso [$A$6], MaCol
End If
If MaLig >= 12 And MaLig <= 16 Then
MaSomme = Application.Sum(Range(Cells(12, MaCol), Cells(16, MaCol)))
If [$B$12] <> MaSomme And MaSomme > 0 Then MesPerso [$A$12], MaCol
End If
If MaLig >= 17 And MaLig <= 21 Then
MaSomme = Application.Sum(Range(Cells(17, MaCol), Cells(21, MaCol)))
If [$B$17] <> MaSomme And MaSomme > 0 Then MesPerso [$A$17], MaCol
End If
End If
End If
End Sub