Procédure trop grande

[domeli]

Bonjour à tous

J'ai fait une procédure simple pour comptabiliser des réponses à un questionnaire.
A chaque dépouillement je veux ajouter 1 en double cliquant dans les cellules correspondantes aux réponses.
Mais visiblement ma procédure est trop grande et je ne sais pas la réduire.
Il y a 28 questions pour 4 réponses et 4 catégories, ce qui fait 16 cellules par question (de b à q).
Pourriez-vous m'aider?
Voici le code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

'Q1 FTP
If Not Application.Intersect(Target, Range("b60")) Is Nothing Then
Range("b60").Value = Range("b60").Value + 1
End If
If Not Application.Intersect(Target, Range("c60")) Is Nothing Then
Range("c60").Value = Range("c60").Value + 1
End If
If Not Application.Intersect(Target, Range("d60")) Is Nothing Then
Range("d60").Value = Range("d60").Value + 1
End If
If Not Application.Intersect(Target, Range("e60")) Is Nothing Then
Range("e60").Value = Range("e60").Value + 1
End If
If Not Application.Intersect(Target, Range("f60")) Is Nothing Then
Range("f60").Value = Range("f60").Value + 1
End If
If Not Application.Intersect(Target, Range("g60")) Is Nothing Then
Range("g60").Value = Range("g60").Value + 1
End If
If Not Application.Intersect(Target, Range("h60")) Is Nothing Then
Range("h60").Value = Range("h60").Value + 1
End If
If Not Application.Intersect(Target, Range("i60")) Is Nothing Then
Range("i60").Value = Range("i60").Value + 1
End If
If Not Application.Intersect(Target, Range("j60")) Is Nothing Then
Range("j60").Value = Range("j60").Value + 1
End If
If Not Application.Intersect(Target, Range("k60")) Is Nothing Then
Range("k60").Value = Range("k60").Value + 1
End If
If Not Application.Intersect(Target, Range("l60")) Is Nothing Then
Range("l60").Value = Range("l60").Value + 1
End If
If Not Application.Intersect(Target, Range("m60")) Is Nothing Then
Range("m60").Value = Range("m60").Value + 1
End If
If Not Application.Intersect(Target, Range("n60")) Is Nothing Then
Range("n60").Value = Range("n60").Value + 1
End If
If Not Application.Intersect(Target, Range("o60")) Is Nothing Then
Range("o60").Value = Range("o60").Value + 1
End If
If Not Application.Intersect(Target, Range("p60")) Is Nothing Then
Range("p60").Value = Range("p60").Value + 1
End If
If Not Application.Intersect(Target, Range("q60")) Is Nothing Then
Range("q60").Value = Range("q60").Value + 1
End If

'Q2 FTP
If Not Application.Intersect(Target, Range("b5")) Is Nothing Then
Range("b5").Value = Range("b5").Value + 1
End If
If Not Application.Intersect(Target, Range("c5")) Is Nothing Then
Range("c5").Value = Range("c5").Value + 1
End If
If Not Application.Intersect(Target, Range("d5")) Is Nothing Then
Range("d5").Value = Range("d5").Value + 1
End If
If Not Application.Intersect(Target, Range("e5")) Is Nothing Then
Range("e5").Value = Range("e5").Value + 1
End If
If Not Application.Intersect(Target, Range("f5")) Is Nothing Then
Range("f5").Value = Range("f5").Value + 1
End If
If Not Application.Intersect(Target, Range("g5")) Is Nothing Then
Range("g5").Value = Range("g5").Value + 1
End If
If Not Application.Intersect(Target, Range("h5")) Is Nothing Then
Range("h5").Value = Range("h5").Value + 1
End If
If Not Application.Intersect(Target, Range("i5")) Is Nothing Then
Range("i5").Value = Range("i5").Value + 1
End If
If Not Application.Intersect(Target, Range("j5")) Is Nothing Then
Range("j5").Value = Range("j5").Value + 1
End If
If Not Application.Intersect(Target, Range("k5")) Is Nothing Then
Range("k5").Value = Range("k5").Value + 1
End If
If Not Application.Intersect(Target, Range("l5")) Is Nothing Then
Range("l5").Value = Range("l5").Value + 1
End If
If Not Application.Intersect(Target, Range("m5")) Is Nothing Then
Range("m5").Value = Range("m5").Value + 1
End If
If Not Application.Intersect(Target, Range("n5")) Is Nothing Then
Range("n5").Value = Range("n5").Value + 1
End If
If Not Application.Intersect(Target, Range("o5")) Is Nothing Then
Range("o5").Value = Range("o5").Value + 1
End If
If Not Application.Intersect(Target, Range("p5")) Is Nothing Then
Range("p5").Value = Range("p5").Value + 1
End If
If Not Application.Intersect(Target, Range("q5")) Is Nothing Then
Range("q5").Value = Range("q5").Value + 1
End If


'Q3 FTP
If Not Application.Intersect(Target, Range("b6")) Is Nothing Then
Range("b6").Value = Range("b6").Value + 1
End If
If Not Application.Intersect(Target, Range("c6")) Is Nothing Then
Range("c6").Value = Range("c6").Value + 1
End If
If Not Application.Intersect(Target, Range("d6")) Is Nothing Then
Range("d6").Value = Range("d6").Value + 1
End If
If Not Application.Intersect(Target, Range("e6")) Is Nothing Then
Range("e6").Value = Range("e6").Value + 1
End If
If Not Application.Intersect(Target, Range("f6")) Is Nothing Then
Range("f6").Value = Range("f6").Value + 1
End If
If Not Application.Intersect(Target, Range("g6")) Is Nothing Then
Range("g6").Value = Range("g6").Value + 1
End If
If Not Application.Intersect(Target, Range("h6")) Is Nothing Then
Range("h6").Value = Range("h6").Value + 1
End If
If Not Application.Intersect(Target, Range("i6")) Is Nothing Then
Range("i6").Value = Range("i6").Value + 1
End If
If Not Application.Intersect(Target, Range("j6")) Is Nothing Then
Range("j6").Value = Range("j6").Value + 1
End If
If Not Application.Intersect(Target, Range("k6")) Is Nothing Then
Range("k6").Value = Range("k6").Value + 1
End If
If Not Application.Intersect(Target, Range("l6")) Is Nothing Then
Range("l6").Value = Range("l6").Value + 1
End If
If Not Application.Intersect(Target, Range("m6")) Is Nothing Then
Range("m6").Value = Range("m6").Value + 1
End If
If Not Application.Intersect(Target, Range("n6")) Is Nothing Then
Range("n6").Value = Range("n6").Value + 1
End If
If Not Application.Intersect(Target, Range("o6")) Is Nothing Then
Range("o6").Value = Range("o6").Value + 1
End If
If Not Application.Intersect(Target, Range("p6")) Is Nothing Then
Range("p6").Value = Range("p6").Value + 1
End If
If Not Application.Intersect(Target, Range("q6")) Is Nothing Then
Range("q6").Value = Range("q6").Value + 1
End If

'Q4 FTP
If Not Application.Intersect(Target, Range("b7")) Is Nothing Then
Range("b7").Value = Range("b7").Value + 1
End If
If Not Application.Intersect(Target, Range("c7")) Is Nothing Then
Range("c7").Value = Range("c7").Value + 1
End If
If Not Application.Intersect(Target, Range("d7")) Is Nothing Then
Range("d7").Value = Range("d7").Value + 1
End If
If Not Application.Intersect(Target, Range("e7")) Is Nothing Then
Range("e7").Value = Range("e7").Value + 1
End If
If Not Application.Intersect(Target, Range("f7")) Is Nothing Then
Range("f7").Value = Range("f7").Value + 1
End If
If Not Application.Intersect(Target, Range("g7")) Is Nothing Then
Range("g7").Value = Range("g7").Value + 1
End If
If Not Application.Intersect(Target, Range("h7")) Is Nothing Then
Range("h7").Value = Range("h7").Value + 1
End If
If Not Application.Intersect(Target, Range("i7")) Is Nothing Then
Range("i7").Value = Range("i7").Value + 1
End If
If Not Application.Intersect(Target, Range("j7")) Is Nothing Then
Range("j7").Value = Range("j7").Value + 1
End If
If Not Application.Intersect(Target, Range("k7")) Is Nothing Then
Range("k7").Value = Range("k7").Value + 1
End If
If Not Application.Intersect(Target, Range("l7")) Is Nothing Then
Range("l7").Value = Range("l7").Value + 1
End If
If Not Application.Intersect(Target, Range("m7")) Is Nothing Then
Range("m7").Value = Range("m7").Value + 1
End If
If Not Application.Intersect(Target, Range("n7")) Is Nothing Then
Range("n7").Value = Range("n7").Value + 1
End If
If Not Application.Intersect(Target, Range("o7")) Is Nothing Then
Range("o7").Value = Range("o7").Value + 1
End If
If Not Application.Intersect(Target, Range("p7")) Is Nothing Then
Range("p7").Value = Range("p7").Value + 1
End If
If Not Application.Intersect(Target, Range("q7")) Is Nothing Then
Range("q7").Value = Range("q7").Value + 1
End If

'Q1 PRIVE
If Not Application.Intersect(Target, Range("b9")) Is Nothing Then
Range("b9").Value = Range("b9").Value + 1
End If
If Not Application.Intersect(Target, Range("c9")) Is Nothing Then
Range("c9").Value = Range("c9").Value + 1
End If
If Not Application.Intersect(Target, Range("d9")) Is Nothing Then
Range("d9").Value = Range("d9").Value + 1
End If
If Not Application.Intersect(Target, Range("e9")) Is Nothing Then
Range("e9").Value = Range("e9").Value + 1
End If
If Not Application.Intersect(Target, Range("f9")) Is Nothing Then
Range("f9").Value = Range("f9").Value + 1
End If
If Not Application.Intersect(Target, Range("g9")) Is Nothing Then
Range("g9").Value = Range("g9").Value + 1
End If
If Not Application.Intersect(Target, Range("h9")) Is Nothing Then
Range("h9").Value = Range("h9").Value + 1
End If
If Not Application.Intersect(Target, Range("i9")) Is Nothing Then
Range("i9").Value = Range("i9").Value + 1
End If
If Not Application.Intersect(Target, Range("j9")) Is Nothing Then
Range("j9").Value = Range("j9").Value + 1
End If
If Not Application.Intersect(Target, Range("k9")) Is Nothing Then
Range("k9").Value = Range("k9").Value + 1
End If
If Not Application.Intersect(Target, Range("l9")) Is Nothing Then
Range("l9").Value = Range("l9").Value + 1
End If
If Not Application.Intersect(Target, Range("m9")) Is Nothing Then
Range("m9").Value = Range("m9").Value + 1
End If
If Not Application.Intersect(Target, Range("n9")) Is Nothing Then
Range("n9").Value = Range("n9").Value + 1
End If
If Not Application.Intersect(Target, Range("o9")) Is Nothing Then
Range("o9").Value = Range("o9").Value + 1
End If
If Not Application.Intersect(Target, Range("p9")) Is Nothing Then
Range("p9").Value = Range("p9").Value + 1
End If
If Not Application.Intersect(Target, Range("q9")) Is Nothing Then
Range("q9").Value = Range("q9").Value + 1
End If

'Q2 PRIVE
If Not Application.Intersect(Target, Range("b10")) Is Nothing Then
Range("b10").Value = Range("b10").Value + 1
End If
If Not Application.Intersect(Target, Range("c10")) Is Nothing Then
Range("c10").Value = Range("c10").Value + 1
End If
If Not Application.Intersect(Target, Range("d10")) Is Nothing Then
Range("d10").Value = Range("d10").Value + 1
End If
If Not Application.Intersect(Target, Range("e10")) Is Nothing Then
Range("e10").Value = Range("e10").Value + 1
End If
If Not Application.Intersect(Target, Range("f10")) Is Nothing Then
Range("f10").Value = Range("f10").Value + 1
End If
If Not Application.Intersect(Target, Range("g10")) Is Nothing Then
Range("g10").Value = Range("g10").Value + 1
End If
If Not Application.Intersect(Target, Range("h10")) Is Nothing Then
Range("h10").Value = Range("h10").Value + 1
End If
If Not Application.Intersect(Target, Range("i10")) Is Nothing Then
Range("i10").Value = Range("i10").Value + 1
End If
If Not Application.Intersect(Target, Range("j10")) Is Nothing Then
Range("j10").Value = Range("j10").Value + 1
End If
If Not Application.Intersect(Target, Range("k10")) Is Nothing Then
Range("k10").Value = Range("k10").Value + 1
End If
If Not Application.Intersect(Target, Range("l10")) Is Nothing Then
Range("l10").Value = Range("l10").Value + 1
End If
If Not Application.Intersect(Target, Range("m10")) Is Nothing Then
Range("m10").Value = Range("m10").Value + 1
End If
If Not Application.Intersect(Target, Range("n10")) Is Nothing Then
Range("n10").Value = Range("n10").Value + 1
End If
If Not Application.Intersect(Target, Range("o10")) Is Nothing Then
Range("o10").Value = Range("o10").Value + 1
End If
If Not Application.Intersect(Target, Range("p10")) Is Nothing Then
Range("p10").Value = Range("p10").Value + 1
End If
If Not Application.Intersect(Target, Range("q10")) Is Nothing Then
Range("q10").Value = Range("q10").Value + 1
End If

'Q3 PRIVE
If Not Application.Intersect(Target, Range("b11")) Is Nothing Then
Range("b11").Value = Range("b11").Value + 1
End If
If Not Application.Intersect(Target, Range("c11")) Is Nothing Then
Range("c11").Value = Range("c11").Value + 1
End If
If Not Application.Intersect(Target, Range("d11")) Is Nothing Then
Range("d11").Value = Range("d11").Value + 1
End If
If Not Application.Intersect(Target, Range("e11")) Is Nothing Then
Range("e11").Value = Range("e11").Value + 1
End If
If Not Application.Intersect(Target, Range("f11")) Is Nothing Then
Range("f11").Value = Range("f11").Value + 1
End If
If Not Application.Intersect(Target, Range("g11")) Is Nothing Then
Range("g11").Value = Range("g11").Value + 1
End If
If Not Application.Intersect(Target, Range("h11")) Is Nothing Then
Range("h11").Value = Range("h11").Value + 1
End If
If Not Application.Intersect(Target, Range("i11")) Is Nothing Then
Range("i11").Value = Range("i11").Value + 1
End If
If Not Application.Intersect(Target, Range("j11")) Is Nothing Then
Range("j11").Value = Range("j11").Value + 1
End If
If Not Application.Intersect(Target, Range("k11")) Is Nothing Then
Range("k11").Value = Range("k11").Value + 1
End If
If Not Application.Intersect(Target, Range("l11")) Is Nothing Then
Range("l11").Value = Range("l11").Value + 1
End If
If Not Application.Intersect(Target, Range("m11")) Is Nothing Then
Range("m11").Value = Range("m11").Value + 1
End If
If Not Application.Intersect(Target, Range("n11")) Is Nothing Then
Range("n11").Value = Range("n11").Value + 1
End If
If Not Application.Intersect(Target, Range("o11")) Is Nothing Then
Range("o11").Value = Range("o11").Value + 1
End If
If Not Application.Intersect(Target, Range("p11")) Is Nothing Then
Range("p11").Value = Range("p11").Value + 1
End If
If Not Application.Intersect(Target, Range("q11")) Is Nothing Then
Range("q11").Value = Range("q11").Value + 1
End If

'Q4 PRIVE
If Not Application.Intersect(Target, Range("b12")) Is Nothing Then
Range("b12").Value = Range("b12").Value + 1
End If
If Not Application.Intersect(Target, Range("c12")) Is Nothing Then
Range("c12").Value = Range("c12").Value + 1
End If
If Not Application.Intersect(Target, Range("d12")) Is Nothing Then
Range("d12").Value = Range("d12").Value + 1
End If
If Not Application.Intersect(Target, Range("e12")) Is Nothing Then
Range("e12").Value = Range("e12").Value + 1
End If
If Not Application.Intersect(Target, Range("f12")) Is Nothing Then
Range("f12").Value = Range("f12").Value + 1
End If
If Not Application.Intersect(Target, Range("g12")) Is Nothing Then
Range("g12").Value = Range("g12").Value + 1
End If
If Not Application.Intersect(Target, Range("h12")) Is Nothing Then
Range("h12").Value = Range("h12").Value + 1
End If
If Not Application.Intersect(Target, Range("i12")) Is Nothing Then
Range("i12").Value = Range("i12").Value + 1
End If
If Not Application.Intersect(Target, Range("j12")) Is Nothing Then
Range("j12").Value = Range("j12").Value + 1
End If
If Not Application.Intersect(Target, Range("k12")) Is Nothing Then
Range("k12").Value = Range("k12").Value + 1
End If
If Not Application.Intersect(Target, Range("l12")) Is Nothing Then
Range("l12").Value = Range("l12").Value + 1
End If
If Not Application.Intersect(Target, Range("m12")) Is Nothing Then
Range("m12").Value = Range("m12").Value + 1
End If
If Not Application.Intersect(Target, Range("n12")) Is Nothing Then
Range("n12").Value = Range("n12").Value + 1
End If
If Not Application.Intersect(Target, Range("o12")) Is Nothing Then
Range("o12").Value = Range("o12").Value + 1
End If
If Not Application.Intersect(Target, Range("p12")) Is Nothing Then
Range("p12").Value = Range("p12").Value + 1
End If
If Not Application.Intersect(Target, Range("q12")) Is Nothing Then
Range("q12").Value = Range("q12").Value + 1
End If

'Q5 FTP
If Not Application.Intersect(Target, Range("b160")) Is Nothing Then
Range("b160").Value = Range("b160").Value + 1
End If
If Not Application.Intersect(Target, Range("c160")) Is Nothing Then
Range("c160").Value = Range("c160").Value + 1
End If
If Not Application.Intersect(Target, Range("d160")) Is Nothing Then
Range("d160").Value = Range("d160").Value + 1
End If
If Not Application.Intersect(Target, Range("e160")) Is Nothing Then
Range("e160").Value = Range("e160").Value + 1
End If
If Not Application.Intersect(Target, Range("f160")) Is Nothing Then
Range("f160").Value = Range("f160").Value + 1
End If
If Not Application.Intersect(Target, Range("g160")) Is Nothing Then
Range("g160").Value = Range("g160").Value + 1
End If
If Not Application.Intersect(Target, Range("h160")) Is Nothing Then
Range("h160").Value = Range("h160").Value + 1
End If
If Not Application.Intersect(Target, Range("i160")) Is Nothing Then
Range("i160").Value = Range("i160").Value + 1
End If
If Not Application.Intersect(Target, Range("j160")) Is Nothing Then
Range("j160").Value = Range("j160").Value + 1
End If
If Not Application.Intersect(Target, Range("k160")) Is Nothing Then
Range("k160").Value = Range("k160").Value + 1
End If
If Not Application.Intersect(Target, Range("l160")) Is Nothing Then
Range("l160").Value = Range("l160").Value + 1
End If
If Not Application.Intersect(Target, Range("m160")) Is Nothing Then
Range("m160").Value = Range("m160").Value + 1
End If
If Not Application.Intersect(Target, Range("n160")) Is Nothing Then
Range("n160").Value = Range("n160").Value + 1
End If
If Not Application.Intersect(Target, Range("o160")) Is Nothing Then
Range("o160").Value = Range("o160").Value + 1
End If
If Not Application.Intersect(Target, Range("p160")) Is Nothing Then
Range("p160").Value = Range("p160").Value + 1
End If
If Not Application.Intersect(Target, Range("q160")) Is Nothing Then
Range("q160").Value = Range("q160").Value + 1
End If

'Q6 FTP
If Not Application.Intersect(Target, Range("b15")) Is Nothing Then
Range("b15").Value = Range("b15").Value + 1
End If
If Not Application.Intersect(Target, Range("c15")) Is Nothing Then
Range("c15").Value = Range("c15").Value + 1
End If
If Not Application.Intersect(Target, Range("d15")) Is Nothing Then
Range("d15").Value = Range("d15").Value + 1
End If
If Not Application.Intersect(Target, Range("e15")) Is Nothing Then
Range("e15").Value = Range("e15").Value + 1
End If
If Not Application.Intersect(Target, Range("f15")) Is Nothing Then
Range("f15").Value = Range("f15").Value + 1
End If
If Not Application.Intersect(Target, Range("g15")) Is Nothing Then
Range("g15").Value = Range("g15").Value + 1
End If
If Not Application.Intersect(Target, Range("h15")) Is Nothing Then
Range("h15").Value = Range("h15").Value + 1
End If
If Not Application.Intersect(Target, Range("i15")) Is Nothing Then
Range("i15").Value = Range("i15").Value + 1
End If
If Not Application.Intersect(Target, Range("j15")) Is Nothing Then
Range("j15").Value = Range("j15").Value + 1
End If
If Not Application.Intersect(Target, Range("k15")) Is Nothing Then
Range("k15").Value = Range("k15").Value + 1
End If
If Not Application.Intersect(Target, Range("l15")) Is Nothing Then
Range("l15").Value = Range("l15").Value + 1
End If
If Not Application.Intersect(Target, Range("m15")) Is Nothing Then
Range("m15").Value = Range("m15").Value + 1
End If
If Not Application.Intersect(Target, Range("n15")) Is Nothing Then
Range("n15").Value = Range("n15").Value + 1
End If
If Not Application.Intersect(Target, Range("o15")) Is Nothing Then
Range("o15").Value = Range("o15").Value + 1
End If
If Not Application.Intersect(Target, Range("p15")) Is Nothing Then
Range("p15").Value = Range("p15").Value + 1
End If
If Not Application.Intersect(Target, Range("q15")) Is Nothing Then
Range("q15").Value = Range("q15").Value + 1
End If

'Q7 FTP
If Not Application.Intersect(Target, Range("b16")) Is Nothing Then
Range("b16").Value = Range("b16").Value + 1
End If
If Not Application.Intersect(Target, Range("c16")) Is Nothing Then
Range("c16").Value = Range("c16").Value + 1
End If
If Not Application.Intersect(Target, Range("d16")) Is Nothing Then
Range("d16").Value = Range("d16").Value + 1
End If
If Not Application.Intersect(Target, Range("e16")) Is Nothing Then
Range("e16").Value = Range("e16").Value + 1
End If
If Not Application.Intersect(Target, Range("f16")) Is Nothing Then
Range("f16").Value = Range("f16").Value + 1
End If
If Not Application.Intersect(Target, Range("g16")) Is Nothing Then
Range("g16").Value = Range("g16").Value + 1
End If
If Not Application.Intersect(Target, Range("h16")) Is Nothing Then
Range("h16").Value = Range("h16").Value + 1
End If
If Not Application.Intersect(Target, Range("i16")) Is Nothing Then
Range("i16").Value = Range("i16").Value + 1
End If
If Not Application.Intersect(Target, Range("j16")) Is Nothing Then
Range("j16").Value = Range("j16").Value + 1
End If
If Not Application.Intersect(Target, Range("k16")) Is Nothing Then
Range("k16").Value = Range("k16").Value + 1
End If
If Not Application.Intersect(Target, Range("l16")) Is Nothing Then
Range("l16").Value = Range("l16").Value + 1
End If
If Not Application.Intersect(Target, Range("m16")) Is Nothing Then
Range("m16").Value = Range("m16").Value + 1
End If
If Not Application.Intersect(Target, Range("n16")) Is Nothing Then
Range("n16").Value = Range("n16").Value + 1
End If
If Not Application.Intersect(Target, Range("o16")) Is Nothing Then
Range("o16").Value = Range("o16").Value + 1
End If
If Not Application.Intersect(Target, Range("p16")) Is Nothing Then
Range("p16").Value = Range("p16").Value + 1
End If
If Not Application.Intersect(Target, Range("q16")) Is Nothing Then
Range("q16").Value = Range("q16").Value + 1
End If

'Q5 PRIVE
If Not Application.Intersect(Target, Range("b18")) Is Nothing Then
Range("b18").Value = Range("b18").Value + 1
End If
If Not Application.Intersect(Target, Range("c18")) Is Nothing Then
Range("c18").Value = Range("c18").Value + 1
End If
If Not Application.Intersect(Target, Range("d18")) Is Nothing Then
Range("d18").Value = Range("d18").Value + 1
End If
If Not Application.Intersect(Target, Range("e18")) Is Nothing Then
Range("e18").Value = Range("e18").Value + 1
End If
If Not Application.Intersect(Target, Range("f18")) Is Nothing Then
Range("f18").Value = Range("f18").Value + 1
End If
If Not Application.Intersect(Target, Range("g18")) Is Nothing Then
Range("g18").Value = Range("g18").Value + 1
End If
If Not Application.Intersect(Target, Range("h18")) Is Nothing Then
Range("h18").Value = Range("h18").Value + 1
End If
If Not Application.Intersect(Target, Range("i18")) Is Nothing Then
Range("i18").Value = Range("i18").Value + 1
End If
If Not Application.Intersect(Target, Range("j18")) Is Nothing Then
Range("j18").Value = Range("j18").Value + 1
End If
If Not Application.Intersect(Target, Range("k18")) Is Nothing Then
Range("k18").Value = Range("k18").Value + 1
End If
If Not Application.Intersect(Target, Range("l18")) Is Nothing Then
Range("l18").Value = Range("l18").Value + 1
End If
If Not Application.Intersect(Target, Range("m18")) Is Nothing Then
Range("m18").Value = Range("m18").Value + 1
End If
If Not Application.Intersect(Target, Range("n18")) Is Nothing Then
Range("n18").Value = Range("n18").Value + 1
End If
If Not Application.Intersect(Target, Range("o18")) Is Nothing Then
Range("o18").Value = Range("o18").Value + 1
End If
If Not Application.Intersect(Target, Range("p18")) Is Nothing Then
Range("p18").Value = Range("p18").Value + 1
End If
If Not Application.Intersect(Target, Range("q18")) Is Nothing Then
Range("q18").Value = Range("q18").Value + 1
End If

'Q6 PRIVE
If Not Application.Intersect(Target, Range("b19")) Is Nothing Then
Range("b19").Value = Range("b19").Value + 1
End If
If Not Application.Intersect(Target, Range("c19")) Is Nothing Then
Range("c19").Value = Range("c19").Value + 1
End If
If Not Application.Intersect(Target, Range("d19")) Is Nothing Then
Range("d19").Value = Range("d19").Value + 1
End If
If Not Application.Intersect(Target, Range("e19")) Is Nothing Then
Range("e19").Value = Range("e19").Value + 1
End If
If Not Application.Intersect(Target, Range("f19")) Is Nothing Then
Range("f19").Value = Range("f19").Value + 1
End If
If Not Application.Intersect(Target, Range("g19")) Is Nothing Then
Range("g19").Value = Range("g19").Value + 1
End If
If Not Application.Intersect(Target, Range("h19")) Is Nothing Then
Range("h19").Value = Range("h19").Value + 1
End If
If Not Application.Intersect(Target, Range("i19")) Is Nothing Then
Range("i19").Value = Range("i19").Value + 1
End If
If Not Application.Intersect(Target, Range("j19")) Is Nothing Then
Range("j19").Value = Range("j19").Value + 1
End If
If Not Application.Intersect(Target, Range("k19")) Is Nothing Then
Range("k19").Value = Range("k19").Value + 1
End If
If Not Application.Intersect(Target, Range("l19")) Is Nothing Then
Range("l19").Value = Range("l19").Value + 1
End If
If Not Application.Intersect(Target, Range("m19")) Is Nothing Then
Range("m19").Value = Range("m19").Value + 1
End If
If Not Application.Intersect(Target, Range("n19")) Is Nothing Then
Range("n19").Value = Range("n19").Value + 1
End If
If Not Application.Intersect(Target, Range("o19")) Is Nothing Then
Range("o19").Value = Range("o19").Value + 1
End If
If Not Application.Intersect(Target, Range("p19")) Is Nothing Then
Range("p19").Value = Range("p19").Value + 1
End If
If Not Application.Intersect(Target, Range("q19")) Is Nothing Then
Range("q19").Value = Range("q19").Value + 1
End If

'Q7 PRIVE
If Not Application.Intersect(Target, Range("b20")) Is Nothing Then
Range("b20").Value = Range("b20").Value + 1
End If
If Not Application.Intersect(Target, Range("c20")) Is Nothing Then
Range("c20").Value = Range("c20").Value + 1
End If
If Not Application.Intersect(Target, Range("d20")) Is Nothing Then
Range("d20").Value = Range("d20").Value + 1
End If
If Not Application.Intersect(Target, Range("e20")) Is Nothing Then
Range("e20").Value = Range("e20").Value + 1
End If
If Not Application.Intersect(Target, Range("f20")) Is Nothing Then
Range("f20").Value = Range("f20").Value + 1
End If
If Not Application.Intersect(Target, Range("g20")) Is Nothing Then
Range("g20").Value = Range("g20").Value + 1
End If
If Not Application.Intersect(Target, Range("h20")) Is Nothing Then
Range("h20").Value = Range("h20").Value + 1
End If
If Not Application.Intersect(Target, Range("i20")) Is Nothing Then
Range("i20").Value = Range("i20").Value + 1
End If
If Not Application.Intersect(Target, Range("j20")) Is Nothing Then
Range("j20").Value = Range("j20").Value + 1
End If
If Not Application.Intersect(Target, Range("k20")) Is Nothing Then
Range("k20").Value = Range("k20").Value + 1
End If
If Not Application.Intersect(Target, Range("l20")) Is Nothing Then
Range("l20").Value = Range("l20").Value + 1
End If
If Not Application.Intersect(Target, Range("m20")) Is Nothing Then
Range("m20").Value = Range("m20").Value + 1
End If
If Not Application.Intersect(Target, Range("n20")) Is Nothing Then
Range("n20").Value = Range("n20").Value + 1
End If
If Not Application.Intersect(Target, Range("o20")) Is Nothing Then
Range("o20").Value = Range("o20").Value + 1
End If
If Not Application.Intersect(Target, Range("p20")) Is Nothing Then
Range("p20").Value = Range("p20").Value + 1
End If
If Not Application.Intersect(Target, Range("q20")) Is Nothing Then
Range("q20").Value = Range("q20").Value + 1
End If

'Q8 FTP
If Not Application.Intersect(Target, Range("b22")) Is Nothing Then
Range("b22").Value = Range("b22").Value + 1
End If
If Not Application.Intersect(Target, Range("c22")) Is Nothing Then
Range("c22").Value = Range("c22").Value + 1
End If
If Not Application.Intersect(Target, Range("d22")) Is Nothing Then
Range("d22").Value = Range("d22").Value + 1
End If
If Not Application.Intersect(Target, Range("e22")) Is Nothing Then
Range("e22").Value = Range("e22").Value + 1
End If
If Not Application.Intersect(Target, Range("f22")) Is Nothing Then
Range("f22").Value = Range("f22").Value + 1
End If
If Not Application.Intersect(Target, Range("g22")) Is Nothing Then
Range("g22").Value = Range("g22").Value + 1
End If
If Not Application.Intersect(Target, Range("h22")) Is Nothing Then
Range("h22").Value = Range("h22").Value + 1
End If
If Not Application.Intersect(Target, Range("i22")) Is Nothing Then
Range("i22").Value = Range("i22").Value + 1
End If
If Not Application.Intersect(Target, Range("j22")) Is Nothing Then
Range("j22").Value = Range("j22").Value + 1
End If
If Not Application.Intersect(Target, Range("k22")) Is Nothing Then
Range("k22").Value = Range("k22").Value + 1
End If
If Not Application.Intersect(Target, Range("l22")) Is Nothing Then
Range("l22").Value = Range("l22").Value + 1
End If
If Not Application.Intersect(Target, Range("m22")) Is Nothing Then
Range("m22").Value = Range("m22").Value + 1
End If
If Not Application.Intersect(Target, Range("n22")) Is Nothing Then
Range("n22").Value = Range("n22").Value + 1
End If
If Not Application.Intersect(Target, Range("o22")) Is Nothing Then
Range("o22").Value = Range("o22").Value + 1
End If
If Not Application.Intersect(Target, Range("p22")) Is Nothing Then
Range("p22").Value = Range("p22").Value + 1
End If
If Not Application.Intersect(Target, Range("q22")) Is Nothing Then
Range("q22").Value = Range("q22").Value + 1
End If

'Q9 FTP
If Not Application.Intersect(Target, Range("b23")) Is Nothing Then
Range("b23").Value = Range("b23").Value + 1
End If
If Not Application.Intersect(Target, Range("c23")) Is Nothing Then
Range("c23").Value = Range("c23").Value + 1
End If
If Not Application.Intersect(Target, Range("d23")) Is Nothing Then
Range("d23").Value = Range("d23").Value + 1
End If
If Not Application.Intersect(Target, Range("e23")) Is Nothing Then
Range("e23").Value = Range("e23").Value + 1
End If
If Not Application.Intersect(Target, Range("f23")) Is Nothing Then
Range("f23").Value = Range("f23").Value + 1
End If
If Not Application.Intersect(Target, Range("g23")) Is Nothing Then
Range("g23").Value = Range("g23").Value + 1
End If
If Not Application.Intersect(Target, Range("h23")) Is Nothing Then
Range("h23").Value = Range("h23").Value + 1
End If
If Not Application.Intersect(Target, Range("i23")) Is Nothing Then
Range("i23").Value = Range("i23").Value + 1
End If
If Not Application.Intersect(Target, Range("j23")) Is Nothing Then
Range("j23").Value = Range("j23").Value + 1
End If
If Not Application.Intersect(Target, Range("k23")) Is Nothing Then
Range("k23").Value = Range("k23").Value + 1
End If
If Not Application.Intersect(Target, Range("l23")) Is Nothing Then
Range("l23").Value = Range("l23").Value + 1
End If
If Not Application.Intersect(Target, Range("m23")) Is Nothing Then
Range("m23").Value = Range("m23").Value + 1
End If
If Not Application.Intersect(Target, Range("n23")) Is Nothing Then
Range("n23").Value = Range("n23").Value + 1
End If
If Not Application.Intersect(Target, Range("o23")) Is Nothing Then
Range("o23").Value = Range("o23").Value + 1
End If
If Not Application.Intersect(Target, Range("p23")) Is Nothing Then
Range("p23").Value = Range("p23").Value + 1
End If
If Not Application.Intersect(Target, Range("q23")) Is Nothing Then
Range("q23").Value = Range("q23").Value + 1
End If

'Q10 FTP
If Not Application.Intersect(Target, Range("b260")) Is Nothing Then
Range("b260").Value = Range("b260").Value + 1
End If
If Not Application.Intersect(Target, Range("c260")) Is Nothing Then
Range("c260").Value = Range("c260").Value + 1
End If
If Not Application.Intersect(Target, Range("d260")) Is Nothing Then
Range("d260").Value = Range("d260").Value + 1
End If
If Not Application.Intersect(Target, Range("e260")) Is Nothing Then
Range("e260").Value = Range("e260").Value + 1
End If
If Not Application.Intersect(Target, Range("f260")) Is Nothing Then
Range("f260").Value = Range("f260").Value + 1
End If
If Not Application.Intersect(Target, Range("g260")) Is Nothing Then
Range("g260").Value = Range("g260").Value + 1
End If
If Not Application.Intersect(Target, Range("h260")) Is Nothing Then
Range("h260").Value = Range("h260").Value + 1
End If
If Not Application.Intersect(Target, Range("i260")) Is Nothing Then
Range("i260").Value = Range("i260").Value + 1
End If
If Not Application.Intersect(Target, Range("j260")) Is Nothing Then
Range("j260").Value = Range("j260").Value + 1
End If
If Not Application.Intersect(Target, Range("k260")) Is Nothing Then
Range("k260").Value = Range("k260").Value + 1
End If
If Not Application.Intersect(Target, Range("l260")) Is Nothing Then
Range("l260").Value = Range("l260").Value + 1
End If
If Not Application.Intersect(Target, Range("m260")) Is Nothing Then
Range("m260").Value = Range("m260").Value + 1
End If
If Not Application.Intersect(Target, Range("n260")) Is Nothing Then
Range("n260").Value = Range("n260").Value + 1
End If
If Not Application.Intersect(Target, Range("o260")) Is Nothing Then
Range("o260").Value = Range("o260").Value + 1
End If
If Not Application.Intersect(Target, Range("p260")) Is Nothing Then
Range("p260").Value = Range("p260").Value + 1
End If
If Not Application.Intersect(Target, Range("q260")) Is Nothing Then
Range("q260").Value = Range("q260").Value + 1
End If

'Q11 FTP
If Not Application.Intersect(Target, Range("b25")) Is Nothing Then
Range("b25").Value = Range("b25").Value + 1
End If
If Not Application.Intersect(Target, Range("c25")) Is Nothing Then
Range("c25").Value = Range("c25").Value + 1
End If
If Not Application.Intersect(Target, Range("d25")) Is Nothing Then
Range("d25").Value = Range("d25").Value + 1
End If
If Not Application.Intersect(Target, Range("e25")) Is Nothing Then
Range("e25").Value = Range("e25").Value + 1
End If
If Not Application.Intersect(Target, Range("f25")) Is Nothing Then
Range("f25").Value = Range("f25").Value + 1
End If
If Not Application.Intersect(Target, Range("g25")) Is Nothing Then
Range("g25").Value = Range("g25").Value + 1
End If
If Not Application.Intersect(Target, Range("h25")) Is Nothing Then
Range("h25").Value = Range("h25").Value + 1
End If
If Not Application.Intersect(Target, Range("i25")) Is Nothing Then
Range("i25").Value = Range("i25").Value + 1
End If
If Not Application.Intersect(Target, Range("j25")) Is Nothing Then
Range("j25").Value = Range("j25").Value + 1
End If
If Not Application.Intersect(Target, Range("k25")) Is Nothing Then
Range("k25").Value = Range("k25").Value + 1
End If
If Not Application.Intersect(Target, Range("l25")) Is Nothing Then
Range("l25").Value = Range("l25").Value + 1
End If
If Not Application.Intersect(Target, Range("m25")) Is Nothing Then
Range("m25").Value = Range("m25").Value + 1
End If
If Not Application.Intersect(Target, Range("n25")) Is Nothing Then
Range("n25").Value = Range("n25").Value + 1
End If
If Not Application.Intersect(Target, Range("o25")) Is Nothing Then
Range("o25").Value = Range("o25").Value + 1
End If
If Not Application.Intersect(Target, Range("p25")) Is Nothing Then
Range("p25").Value = Range("p25").Value + 1
End If
If Not Application.Intersect(Target, Range("q25")) Is Nothing Then
Range("q25").Value = Range("q25").Value + 1
End If

'Q12 FTP
If Not Application.Intersect(Target, Range("b26")) Is Nothing Then
Range("b26").Value = Range("b26").Value + 1
End If
If Not Application.Intersect(Target, Range("c26")) Is Nothing Then
Range("c26").Value = Range("c26").Value + 1
End If
If Not Application.Intersect(Target, Range("d26")) Is Nothing Then
Range("d26").Value = Range("d26").Value + 1
End If
If Not Application.Intersect(Target, Range("e26")) Is Nothing Then
Range("e26").Value = Range("e26").Value + 1
End If
If Not Application.Intersect(Target, Range("f26")) Is Nothing Then
Range("f26").Value = Range("f26").Value + 1
End If
If Not Application.Intersect(Target, Range("g26")) Is Nothing Then
Range("g26").Value = Range("g26").Value + 1
End If
If Not Application.Intersect(Target, Range("h26")) Is Nothing Then
Range("h26").Value = Range("h26").Value + 1
End If
If Not Application.Intersect(Target, Range("i26")) Is Nothing Then
Range("i26").Value = Range("i26").Value + 1
End If
If Not Application.Intersect(Target, Range("j26")) Is Nothing Then
Range("j26").Value = Range("j26").Value + 1
End If
If Not Application.Intersect(Target, Range("k26")) Is Nothing Then
Range("k26").Value = Range("k26").Value + 1
End If
If Not Application.Intersect(Target, Range("l26")) Is Nothing Then
Range("l26").Value = Range("l26").Value + 1
End If
If Not Application.Intersect(Target, Range("m26")) Is Nothing Then
Range("m26").Value = Range("m26").Value + 1
End If
If Not Application.Intersect(Target, Range("n26")) Is Nothing Then
Range("n26").Value = Range("n26").Value + 1
End If
If Not Application.Intersect(Target, Range("o26")) Is Nothing Then
Range("o26").Value = Range("o26").Value + 1
End If
If Not Application.Intersect(Target, Range("p26")) Is Nothing Then
Range("p26").Value = Range("p26").Value + 1
End If
If Not Application.Intersect(Target, Range("q26")) Is Nothing Then
Range("q26").Value = Range("q26").Value + 1
End If

'Q13 FTP
If Not Application.Intersect(Target, Range("b27")) Is Nothing Then
Range("b27").Value = Range("b27").Value + 1
End If
If Not Application.Intersect(Target, Range("c27")) Is Nothing Then
Range("c27").Value = Range("c27").Value + 1
End If
If Not Application.Intersect(Target, Range("d27")) Is Nothing Then
Range("d27").Value = Range("d27").Value + 1
End If
If Not Application.Intersect(Target, Range("e27")) Is Nothing Then
Range("e27").Value = Range("e27").Value + 1
End If
If Not Application.Intersect(Target, Range("f27")) Is Nothing Then
Range("f27").Value = Range("f27").Value + 1
End If
If Not Application.Intersect(Target, Range("g27")) Is Nothing Then
Range("g27").Value = Range("g27").Value + 1
End If
If Not Application.Intersect(Target, Range("h27")) Is Nothing Then
Range("h27").Value = Range("h27").Value + 1
End If
If Not Application.Intersect(Target, Range("i27")) Is Nothing Then
Range("i27").Value = Range("i27").Value + 1
End If
If Not Application.Intersect(Target, Range("j27")) Is Nothing Then
Range("j27").Value = Range("j27").Value + 1
End If
If Not Application.Intersect(Target, Range("k27")) Is Nothing Then
Range("k27").Value = Range("k27").Value + 1
End If
If Not Application.Intersect(Target, Range("l27")) Is Nothing Then
Range("l27").Value = Range("l27").Value + 1
End If
If Not Application.Intersect(Target, Range("m27")) Is Nothing Then
Range("m27").Value = Range("m27").Value + 1
End If
If Not Application.Intersect(Target, Range("n27")) Is Nothing Then
Range("n27").Value = Range("n27").Value + 1
End If
If Not Application.Intersect(Target, Range("o27")) Is Nothing Then
Range("o27").Value = Range("o27").Value + 1
End If
If Not Application.Intersect(Target, Range("p27")) Is Nothing Then
Range("p27").Value = Range("p27").Value + 1
End If
If Not Application.Intersect(Target, Range("q27")) Is Nothing Then
Range("q27").Value = Range("q27").Value + 1
End If

'Q8 PRIVE
If Not Application.Intersect(Target, Range("b29")) Is Nothing Then
Range("b29").Value = Range("b29").Value + 1
End If
If Not Application.Intersect(Target, Range("c29")) Is Nothing Then
Range("c29").Value = Range("c29").Value + 1
End If
If Not Application.Intersect(Target, Range("d29")) Is Nothing Then
Range("d29").Value = Range("d29").Value + 1
End If
If Not Application.Intersect(Target, Range("e29")) Is Nothing Then
Range("e29").Value = Range("e29").Value + 1
End If
If Not Application.Intersect(Target, Range("f29")) Is Nothing Then
Range("f29").Value = Range("f29").Value + 1
End If
If Not Application.Intersect(Target, Range("g29")) Is Nothing Then
Range("g29").Value = Range("g29").Value + 1
End If
If Not Application.Intersect(Target, Range("h29")) Is Nothing Then
Range("h29").Value = Range("h29").Value + 1
End If
If Not Application.Intersect(Target, Range("i29")) Is Nothing Then
Range("i29").Value = Range("i29").Value + 1
End If
If Not Application.Intersect(Target, Range("j29")) Is Nothing Then
Range("j29").Value = Range("j29").Value + 1
End If
If Not Application.Intersect(Target, Range("k29")) Is Nothing Then
Range("k29").Value = Range("k29").Value + 1
End If
If Not Application.Intersect(Target, Range("l29")) Is Nothing Then
Range("l29").Value = Range("l29").Value + 1
End If
If Not Application.Intersect(Target, Range("m29")) Is Nothing Then
Range("m29").Value = Range("m29").Value + 1
End If
If Not Application.Intersect(Target, Range("n29")) Is Nothing Then
Range("n29").Value = Range("n29").Value + 1
End If
If Not Application.Intersect(Target, Range("o29")) Is Nothing Then
Range("o29").Value = Range("o29").Value + 1
End If
If Not Application.Intersect(Target, Range("p29")) Is Nothing Then
Range("p29").Value = Range("p29").Value + 1
End If
If Not Application.Intersect(Target, Range("q29")) Is Nothing Then
Range("q29").Value = Range("q29").Value + 1
End If

'Q9 PRIVE
If Not Application.Intersect(Target, Range("b30")) Is Nothing Then
Range("b30").Value = Range("b30").Value + 1
End If
If Not Application.Intersect(Target, Range("c30")) Is Nothing Then
Range("c30").Value = Range("c30").Value + 1
End If
If Not Application.Intersect(Target, Range("d30")) Is Nothing Then
Range("d30").Value = Range("d30").Value + 1
End If
If Not Application.Intersect(Target, Range("e30")) Is Nothing Then
Range("e30").Value = Range("e30").Value + 1
End If
If Not Application.Intersect(Target, Range("f30")) Is Nothing Then
Range("f30").Value = Range("f30").Value + 1
End If
If Not Application.Intersect(Target, Range("g30")) Is Nothing Then
Range("g30").Value = Range("g30").Value + 1
End If
If Not Application.Intersect(Target, Range("h30")) Is Nothing Then
Range("h30").Value = Range("h30").Value + 1
End If
If Not Application.Intersect(Target, Range("i30")) Is Nothing Then
Range("i30").Value = Range("i30").Value + 1
End If
If Not Application.Intersect(Target, Range("j30")) Is Nothing Then
Range("j30").Value = Range("j30").Value + 1
End If
If Not Application.Intersect(Target, Range("k30")) Is Nothing Then
Range("k30").Value = Range("k30").Value + 1
End If
If Not Application.Intersect(Target, Range("l30")) Is Nothing Then
Range("l30").Value = Range("l30").Value + 1
End If
If Not Application.Intersect(Target, Range("m30")) Is Nothing Then
Range("m30").Value = Range("m30").Value + 1
End If
If Not Application.Intersect(Target, Range("n30")) Is Nothing Then
Range("n30").Value = Range("n30").Value + 1
End If
If Not Application.Intersect(Target, Range("o30")) Is Nothing Then
Range("o30").Value = Range("o30").Value + 1
End If
If Not Application.Intersect(Target, Range("p30")) Is Nothing Then
Range("p30").Value = Range("p30").Value + 1
End If
If Not Application.Intersect(Target, Range("q30")) Is Nothing Then
Range("q30").Value = Range("q30").Value + 1
End If

'Q10 PRIVE
If Not Application.Intersect(Target, Range("b31")) Is Nothing Then
Range("b31").Value = Range("b31").Value + 1
End If
If Not Application.Intersect(Target, Range("c31")) Is Nothing Then
Range("c31").Value = Range("c31").Value + 1
End If
If Not Application.Intersect(Target, Range("d31")) Is Nothing Then
Range("d31").Value = Range("d31").Value + 1
End If
If Not Application.Intersect(Target, Range("e31")) Is Nothing Then
Range("e31").Value = Range("e31").Value + 1
End If
If Not Application.Intersect(Target, Range("f31")) Is Nothing Then
Range("f31").Value = Range("f31").Value + 1
End If
If Not Application.Intersect(Target, Range("g31")) Is Nothing Then
Range("g31").Value = Range("g31").Value + 1
End If
If Not Application.Intersect(Target, Range("h31")) Is Nothing Then
Range("h31").Value = Range("h31").Value + 1
End If
If Not Application.Intersect(Target, Range("i31")) Is Nothing Then
Range("i31").Value = Range("i31").Value + 1
End If
If Not Application.Intersect(Target, Range("j31")) Is Nothing Then
Range("j31").Value = Range("j31").Value + 1
End If
If Not Application.Intersect(Target, Range("k31")) Is Nothing Then
Range("k31").Value = Range("k31").Value + 1
End If
If Not Application.Intersect(Target, Range("l31")) Is Nothing Then
Range("l31").Value = Range("l31").Value + 1
End If
If Not Application.Intersect(Target, Range("m31")) Is Nothing Then
Range("m31").Value = Range("m31").Value + 1
End If
If Not Application.Intersect(Target, Range("n31")) Is Nothing Then
Range("n31").Value = Range("n31").Value + 1
End If
If Not Application.Intersect(Target, Range("o31")) Is Nothing Then
Range("o31").Value = Range("o31").Value + 1
End If
If Not Application.Intersect(Target, Range("p31")) Is Nothing Then
Range("p31").Value = Range("p31").Value + 1
End If
If Not Application.Intersect(Target, Range("q31")) Is Nothing Then
Range("q31").Value = Range("q31").Value + 1
End If

'Q11 PRIVE
If Not Application.Intersect(Target, Range("b32")) Is Nothing Then
Range("b32").Value = Range("b32").Value + 1
End If
If Not Application.Intersect(Target, Range("c32")) Is Nothing Then
Range("c32").Value = Range("c32").Value + 1
End If
If Not Application.Intersect(Target, Range("d32")) Is Nothing Then
Range("d32").Value = Range("d32").Value + 1
End If
If Not Application.Intersect(Target, Range("e32")) Is Nothing Then
Range("e32").Value = Range("e32").Value + 1
End If
If Not Application.Intersect(Target, Range("f32")) Is Nothing Then
Range("f32").Value = Range("f32").Value + 1
End If
If Not Application.Intersect(Target, Range("g32")) Is Nothing Then
Range("g32").Value = Range("g32").Value + 1
End If
If Not Application.Intersect(Target, Range("h32")) Is Nothing Then
Range("h32").Value = Range("h32").Value + 1
End If
If Not Application.Intersect(Target, Range("i32")) Is Nothing Then
Range("i32").Value = Range("i32").Value + 1
End If
If Not Application.Intersect(Target, Range("j32")) Is Nothing Then
Range("j32").Value = Range("j32").Value + 1
End If
If Not Application.Intersect(Target, Range("k32")) Is Nothing Then
Range("k32").Value = Range("k32").Value + 1
End If
If Not Application.Intersect(Target, Range("l32")) Is Nothing Then
Range("l32").Value = Range("l32").Value + 1
End If
If Not Application.Intersect(Target, Range("m32")) Is Nothing Then
Range("m32").Value = Range("m32").Value + 1
End If
If Not Application.Intersect(Target, Range("n32")) Is Nothing Then
Range("n32").Value = Range("n32").Value + 1
End If
If Not Application.Intersect(Target, Range("o32")) Is Nothing Then
Range("o32").Value = Range("o32").Value + 1
End If
If Not Application.Intersect(Target, Range("p32")) Is Nothing Then
Range("p32").Value = Range("p32").Value + 1
End If
If Not Application.Intersect(Target, Range("q32")) Is Nothing Then
Range("q32").Value = Range("q32").Value + 1
End If

'Q12 PRIVE
If Not Application.Intersect(Target, Range("b33")) Is Nothing Then
Range("b33").Value = Range("b33").Value + 1
End If
If Not Application.Intersect(Target, Range("c33")) Is Nothing Then
Range("c33").Value = Range("c33").Value + 1
End If
If Not Application.Intersect(Target, Range("d33")) Is Nothing Then
Range("d33").Value = Range("d33").Value + 1
End If
If Not Application.Intersect(Target, Range("e33")) Is Nothing Then
Range("e33").Value = Range("e33").Value + 1
End If
If Not Application.Intersect(Target, Range("f33")) Is Nothing Then
Range("f33").Value = Range("f33").Value + 1
End If
If Not Application.Intersect(Target, Range("g33")) Is Nothing Then
Range("g33").Value = Range("g33").Value + 1
End If
If Not Application.Intersect(Target, Range("h33")) Is Nothing Then
Range("h33").Value = Range("h33").Value + 1
End If
If Not Application.Intersect(Target, Range("i33")) Is Nothing Then
Range("i33").Value = Range("i33").Value + 1
End If
If Not Application.Intersect(Target, Range("j33")) Is Nothing Then
Range("j33").Value = Range("j33").Value + 1
End If
If Not Application.Intersect(Target, Range("k33")) Is Nothing Then
Range("k33").Value = Range("k33").Value + 1
End If
If Not Application.Intersect(Target, Range("l33")) Is Nothing Then
Range("l33").Value = Range("l33").Value + 1
End If
If Not Application.Intersect(Target, Range("m33")) Is Nothing Then
Range("m33").Value = Range("m33").Value + 1
End If
If Not Application.Intersect(Target, Range("n33")) Is Nothing Then
Range("n33").Value = Range("n33").Value + 1
End If
If Not Application.Intersect(Target, Range("o33")) Is Nothing Then
Range("o33").Value = Range("o33").Value + 1
End If
If Not Application.Intersect(Target, Range("p33")) Is Nothing Then
Range("p33").Value = Range("p33").Value + 1
End If
If Not Application.Intersect(Target, Range("q33")) Is Nothing Then
Range("q33").Value = Range("q33").Value + 1
End If

'Q13 PRIVE
If Not Application.Intersect(Target, Range("b360")) Is Nothing Then
Range("b360").Value = Range("b360").Value + 1
End If
If Not Application.Intersect(Target, Range("c360")) Is Nothing Then
Range("c360").Value = Range("c360").Value + 1
End If
If Not Application.Intersect(Target, Range("d360")) Is Nothing Then
Range("d360").Value = Range("d360").Value + 1
End If
If Not Application.Intersect(Target, Range("e360")) Is Nothing Then
Range("e360").Value = Range("e360").Value + 1
End If
If Not Application.Intersect(Target, Range("f360")) Is Nothing Then
Range("f360").Value = Range("f360").Value + 1
End If
If Not Application.Intersect(Target, Range("g360")) Is Nothing Then
Range("g360").Value = Range("g360").Value + 1
End If
If Not Application.Intersect(Target, Range("h360")) Is Nothing Then
Range("h360").Value = Range("h360").Value + 1
End If
If Not Application.Intersect(Target, Range("i360")) Is Nothing Then
Range("i360").Value = Range("i360").Value + 1
End If
If Not Application.Intersect(Target, Range("j360")) Is Nothing Then
Range("j360").Value = Range("j360").Value + 1
End If
If Not Application.Intersect(Target, Range("k360")) Is Nothing Then
Range("k360").Value = Range("k360").Value + 1
End If
If Not Application.Intersect(Target, Range("l360")) Is Nothing Then
Range("l360").Value = Range("l360").Value + 1
End If
If Not Application.Intersect(Target, Range("m360")) Is Nothing Then
Range("m360").Value = Range("m360").Value + 1
End If
If Not Application.Intersect(Target, Range("n360")) Is Nothing Then
Range("n360").Value = Range("n360").Value + 1
End If
If Not Application.Intersect(Target, Range("o360")) Is Nothing Then
Range("o360").Value = Range("o360").Value + 1
End If
If Not Application.Intersect(Target, Range("p360")) Is Nothing Then
Range("p360").Value = Range("p360").Value + 1
End If
If Not Application.Intersect(Target, Range("q360")) Is Nothing Then
Range("q360").Value = Range("q360").Value + 1
End If

'Q14 FTP
If Not Application.Intersect(Target, Range("b36")) Is Nothing Then
Range("b36").Value = Range("b36").Value + 1
End If
If Not Application.Intersect(Target, Range("c36")) Is Nothing Then
Range("c36").Value = Range("c36").Value + 1
End If
If Not Application.Intersect(Target, Range("d36")) Is Nothing Then
Range("d36").Value = Range("d36").Value + 1
End If
If Not Application.Intersect(Target, Range("e36")) Is Nothing Then
Range("e36").Value = Range("e36").Value + 1
End If
If Not Application.Intersect(Target, Range("f36")) Is Nothing Then
Range("f36").Value = Range("f36").Value + 1
End If
If Not Application.Intersect(Target, Range("g36")) Is Nothing Then
Range("g36").Value = Range("g36").Value + 1
End If
If Not Application.Intersect(Target, Range("h36")) Is Nothing Then
Range("h36").Value = Range("h36").Value + 1
End If
If Not Application.Intersect(Target, Range("i36")) Is Nothing Then
Range("i36").Value = Range("i36").Value + 1
End If
If Not Application.Intersect(Target, Range("j36")) Is Nothing Then
Range("j36").Value = Range("j36").Value + 1
End If
If Not Application.Intersect(Target, Range("k36")) Is Nothing Then
Range("k36").Value = Range("k36").Value + 1
End If
If Not Application.Intersect(Target, Range("l36")) Is Nothing Then
Range("l36").Value = Range("l36").Value + 1
End If
If Not Application.Intersect(Target, Range("m36")) Is Nothing Then
Range("m36").Value = Range("m36").Value + 1
End If
If Not Application.Intersect(Target, Range("n36")) Is Nothing Then
Range("n36").Value = Range("n36").Value + 1
End If
If Not Application.Intersect(Target, Range("o36")) Is Nothing Then
Range("o36").Value = Range("o36").Value + 1
End If
If Not Application.Intersect(Target, Range("p36")) Is Nothing Then
Range("p36").Value = Range("p36").Value + 1
End If
If Not Application.Intersect(Target, Range("q36")) Is Nothing Then
Range("q36").Value = Range("q36").Value + 1
End If

'Q15 FTP
If Not Application.Intersect(Target, Range("b37")) Is Nothing Then
Range("b37").Value = Range("b37").Value + 1
End If
If Not Application.Intersect(Target, Range("c37")) Is Nothing Then
Range("c37").Value = Range("c37").Value + 1
End If
If Not Application.Intersect(Target, Range("d37")) Is Nothing Then
Range("d37").Value = Range("d37").Value + 1
End If
If Not Application.Intersect(Target, Range("e37")) Is Nothing Then
Range("e37").Value = Range("e37").Value + 1
End If
If Not Application.Intersect(Target, Range("f37")) Is Nothing Then
Range("f37").Value = Range("f37").Value + 1
End If
If Not Application.Intersect(Target, Range("g37")) Is Nothing Then
Range("g37").Value = Range("g37").Value + 1
End If
If Not Application.Intersect(Target, Range("h37")) Is Nothing Then
Range("h37").Value = Range("h37").Value + 1
End If
If Not Application.Intersect(Target, Range("i37")) Is Nothing Then
Range("i37").Value = Range("i37").Value + 1
End If
If Not Application.Intersect(Target, Range("j37")) Is Nothing Then
Range("j37").Value = Range("j37").Value + 1
End If
If Not Application.Intersect(Target, Range("k37")) Is Nothing Then
Range("k37").Value = Range("k37").Value + 1
End If
If Not Application.Intersect(Target, Range("l37")) Is Nothing Then
Range("l37").Value = Range("l37").Value + 1
End If
If Not Application.Intersect(Target, Range("m37")) Is Nothing Then
Range("m37").Value = Range("m37").Value + 1
End If
If Not Application.Intersect(Target, Range("n37")) Is Nothing Then
Range("n37").Value = Range("n37").Value + 1
End If
If Not Application.Intersect(Target, Range("o37")) Is Nothing Then
Range("o37").Value = Range("o37").Value + 1
End If
If Not Application.Intersect(Target, Range("p37")) Is Nothing Then
Range("p37").Value = Range("p37").Value + 1
End If
If Not Application.Intersect(Target, Range("q37")) Is Nothing Then
Range("q37").Value = Range("q37").Value + 1
End If

'Q16 FTP
If Not Application.Intersect(Target, Range("b38")) Is Nothing Then
Range("b38").Value = Range("b38").Value + 1
End If
If Not Application.Intersect(Target, Range("c38")) Is Nothing Then
Range("c38").Value = Range("c38").Value + 1
End If
If Not Application.Intersect(Target, Range("d38")) Is Nothing Then
Range("d38").Value = Range("d38").Value + 1
End If
If Not Application.Intersect(Target, Range("e38")) Is Nothing Then
Range("e38").Value = Range("e38").Value + 1
End If
If Not Application.Intersect(Target, Range("f38")) Is Nothing Then
Range("f38").Value = Range("f38").Value + 1
End If
If Not Application.Intersect(Target, Range("g38")) Is Nothing Then
Range("g38").Value = Range("g38").Value + 1
End If
If Not Application.Intersect(Target, Range("h38")) Is Nothing Then
Range("h38").Value = Range("h38").Value + 1
End If
If Not Application.Intersect(Target, Range("i38")) Is Nothing Then
Range("i38").Value = Range("i38").Value + 1
End If
If Not Application.Intersect(Target, Range("j38")) Is Nothing Then
Range("j38").Value = Range("j38").Value + 1
End If
If Not Application.Intersect(Target, Range("k38")) Is Nothing Then
Range("k38").Value = Range("k38").Value + 1
End If
If Not Application.Intersect(Target, Range("l38")) Is Nothing Then
Range("l38").Value = Range("l38").Value + 1
End If
If Not Application.Intersect(Target, Range("m38")) Is Nothing Then
Range("m38").Value = Range("m38").Value + 1
End If
If Not Application.Intersect(Target, Range("n38")) Is Nothing Then
Range("n38").Value = Range("n38").Value + 1
End If
If Not Application.Intersect(Target, Range("o38")) Is Nothing Then
Range("o38").Value = Range("o38").Value + 1
End If
If Not Application.Intersect(Target, Range("p38")) Is Nothing Then
Range("p38").Value = Range("p38").Value + 1
End If
If Not Application.Intersect(Target, Range("q38")) Is Nothing Then
Range("q38").Value = Range("q38").Value + 1
End If

'Q17 FTP
If Not Application.Intersect(Target, Range("b39")) Is Nothing Then
Range("b39").Value = Range("b39").Value + 1
End If
If Not Application.Intersect(Target, Range("c39")) Is Nothing Then
Range("c39").Value = Range("c39").Value + 1
End If
If Not Application.Intersect(Target, Range("d39")) Is Nothing Then
Range("d39").Value = Range("d39").Value + 1
End If
If Not Application.Intersect(Target, Range("e39")) Is Nothing Then
Range("e39").Value = Range("e39").Value + 1
End If
If Not Application.Intersect(Target, Range("f39")) Is Nothing Then
Range("f39").Value = Range("f39").Value + 1
End If
If Not Application.Intersect(Target, Range("g39")) Is Nothing Then
Range("g39").Value = Range("g39").Value + 1
End If
If Not Application.Intersect(Target, Range("h39")) Is Nothing Then
Range("h39").Value = Range("h39").Value + 1
End If
If Not Application.Intersect(Target, Range("i39")) Is Nothing Then
Range("i39").Value = Range("i39").Value + 1
End If
If Not Application.Intersect(Target, Range("j39")) Is Nothing Then
Range("j39").Value = Range("j39").Value + 1
End If
If Not Application.Intersect(Target, Range("k39")) Is Nothing Then
Range("k39").Value = Range("k39").Value + 1
End If
If Not Application.Intersect(Target, Range("l39")) Is Nothing Then
Range("l39").Value = Range("l39").Value + 1
End If
If Not Application.Intersect(Target, Range("m39")) Is Nothing Then
Range("m39").Value = Range("m39").Value + 1
End If
If Not Application.Intersect(Target, Range("n39")) Is Nothing Then
Range("n39").Value = Range("n39").Value + 1
End If
If Not Application.Intersect(Target, Range("o39")) Is Nothing Then
Range("o39").Value = Range("o39").Value + 1
End If
If Not Application.Intersect(Target, Range("p39")) Is Nothing Then
Range("p39").Value = Range("p39").Value + 1
End If
If Not Application.Intersect(Target, Range("q39")) Is Nothing Then
Range("q39").Value = Range("q39").Value + 1
End If

'Q18 FTP
If Not Application.Intersect(Target, Range("b40")) Is Nothing Then
Range("b40").Value = Range("b40").Value + 1
End If
If Not Application.Intersect(Target, Range("c40")) Is Nothing Then
Range("c40").Value = Range("c40").Value + 1
End If
If Not Application.Intersect(Target, Range("d40")) Is Nothing Then
Range("d40").Value = Range("d40").Value + 1
End If
If Not Application.Intersect(Target, Range("e40")) Is Nothing Then
Range("e40").Value = Range("e40").Value + 1
End If
If Not Application.Intersect(Target, Range("f40")) Is Nothing Then
Range("f40").Value = Range("f40").Value + 1
End If
If Not Application.Intersect(Target, Range("g40")) Is Nothing Then
Range("g40").Value = Range("g40").Value + 1
End If
If Not Application.Intersect(Target, Range("h40")) Is Nothing Then
Range("h40").Value = Range("h40").Value + 1
End If
If Not Application.Intersect(Target, Range("i40")) Is Nothing Then
Range("i40").Value = Range("i40").Value + 1
End If
If Not Application.Intersect(Target, Range("j40")) Is Nothing Then
Range("j40").Value = Range("j40").Value + 1
End If
If Not Application.Intersect(Target, Range("k40")) Is Nothing Then
Range("k40").Value = Range("k40").Value + 1
End If
If Not Application.Intersect(Target, Range("l40")) Is Nothing Then
Range("l40").Value = Range("l40").Value + 1
End If
If Not Application.Intersect(Target, Range("m40")) Is Nothing Then
Range("m40").Value = Range("m40").Value + 1
End If
If Not Application.Intersect(Target, Range("n40")) Is Nothing Then
Range("n40").Value = Range("n40").Value + 1
End If
If Not Application.Intersect(Target, Range("o40")) Is Nothing Then
Range("o40").Value = Range("o40").Value + 1
End If
If Not Application.Intersect(Target, Range("p40")) Is Nothing Then
Range("p40").Value = Range("p40").Value + 1
End If
If Not Application.Intersect(Target, Range("q40")) Is Nothing Then
Range("q40").Value = Range("q40").Value + 1
End If

'Q19 FTP
If Not Application.Intersect(Target, Range("b41")) Is Nothing Then
Range("b41").Value = Range("b41").Value + 1
End If
If Not Application.Intersect(Target, Range("c41")) Is Nothing Then
Range("c41").Value = Range("c41").Value + 1
End If
If Not Application.Intersect(Target, Range("d41")) Is Nothing Then
Range("d41").Value = Range("d41").Value + 1
End If
If Not Application.Intersect(Target, Range("e41")) Is Nothing Then
Range("e41").Value = Range("e41").Value + 1
End If
If Not Application.Intersect(Target, Range("f41")) Is Nothing Then
Range("f41").Value = Range("f41").Value + 1
End If
If Not Application.Intersect(Target, Range("g41")) Is Nothing Then
Range("g41").Value = Range("g41").Value + 1
End If
If Not Application.Intersect(Target, Range("h41")) Is Nothing Then
Range("h41").Value = Range("h41").Value + 1
End If
If Not Application.Intersect(Target, Range("i41")) Is Nothing Then
Range("i41").Value = Range("i41").Value + 1
End If
If Not Application.Intersect(Target, Range("j41")) Is Nothing Then
Range("j41").Value = Range("j41").Value + 1
End If
If Not Application.Intersect(Target, Range("k41")) Is Nothing Then
Range("k41").Value = Range("k41").Value + 1
End If
If Not Application.Intersect(Target, Range("l41")) Is Nothing Then
Range("l41").Value = Range("l41").Value + 1
End If
If Not Application.Intersect(Target, Range("m41")) Is Nothing Then
Range("m41").Value = Range("m41").Value + 1
End If
If Not Application.Intersect(Target, Range("n41")) Is Nothing Then
Range("n41").Value = Range("n41").Value + 1
End If
If Not Application.Intersect(Target, Range("o41")) Is Nothing Then
Range("o41").Value = Range("o41").Value + 1
End If
If Not Application.Intersect(Target, Range("p41")) Is Nothing Then
Range("p41").Value = Range("p41").Value + 1
End If
If Not Application.Intersect(Target, Range("q41")) Is Nothing Then
Range("q41").Value = Range("q41").Value + 1
End If

'Q20 FTP
If Not Application.Intersect(Target, Range("b42")) Is Nothing Then
Range("b42").Value = Range("b42").Value + 1
End If
If Not Application.Intersect(Target, Range("c42")) Is Nothing Then
Range("c42").Value = Range("c42").Value + 1
End If
If Not Application.Intersect(Target, Range("d42")) Is Nothing Then
Range("d42").Value = Range("d42").Value + 1
End If
If Not Application.Intersect(Target, Range("e42")) Is Nothing Then
Range("e42").Value = Range("e42").Value + 1
End If
If Not Application.Intersect(Target, Range("f42")) Is Nothing Then
Range("f42").Value = Range("f42").Value + 1
End If
If Not Application.Intersect(Target, Range("g42")) Is Nothing Then
Range("g42").Value = Range("g42").Value + 1
End If
If Not Application.Intersect(Target, Range("h42")) Is Nothing Then
Range("h42").Value = Range("h42").Value + 1
End If
If Not Application.Intersect(Target, Range("i42")) Is Nothing Then
Range("i42").Value = Range("i42").Value + 1
End If
If Not Application.Intersect(Target, Range("j42")) Is Nothing Then
Range("j42").Value = Range("j42").Value + 1
End If
If Not Application.Intersect(Target, Range("k42")) Is Nothing Then
Range("k42").Value = Range("k42").Value + 1
End If
If Not Application.Intersect(Target, Range("l42")) Is Nothing Then
Range("l42").Value = Range("l42").Value + 1
End If
If Not Application.Intersect(Target, Range("m42")) Is Nothing Then
Range("m42").Value = Range("m42").Value + 1
End If
If Not Application.Intersect(Target, Range("n42")) Is Nothing Then
Range("n42").Value = Range("n42").Value + 1
End If
If Not Application.Intersect(Target, Range("o42")) Is Nothing Then
Range("o42").Value = Range("o42").Value + 1
End If
If Not Application.Intersect(Target, Range("p42")) Is Nothing Then
Range("p42").Value = Range("p42").Value + 1
End If
If Not Application.Intersect(Target, Range("q42")) Is Nothing Then
Range("q42").Value = Range("q42").Value + 1
End If

'Q21 FTP
If Not Application.Intersect(Target, Range("b43")) Is Nothing Then
Range("b43").Value = Range("b43").Value + 1
End If
If Not Application.Intersect(Target, Range("c43")) Is Nothing Then
Range("c43").Value = Range("c43").Value + 1
End If
If Not Application.Intersect(Target, Range("d43")) Is Nothing Then
Range("d43").Value = Range("d43").Value + 1
End If
If Not Application.Intersect(Target, Range("e43")) Is Nothing Then
Range("e43").Value = Range("e43").Value + 1
End If
If Not Application.Intersect(Target, Range("f43")) Is Nothing Then
Range("f43").Value = Range("f43").Value + 1
End If
If Not Application.Intersect(Target, Range("g43")) Is Nothing Then
Range("g43").Value = Range("g43").Value + 1
End If
If Not Application.Intersect(Target, Range("h43")) Is Nothing Then
Range("h43").Value = Range("h43").Value + 1
End If
If Not Application.Intersect(Target, Range("i43")) Is Nothing Then
Range("i43").Value = Range("i43").Value + 1
End If
If Not Application.Intersect(Target, Range("j43")) Is Nothing Then
Range("j43").Value = Range("j43").Value + 1
End If
If Not Application.Intersect(Target, Range("k43")) Is Nothing Then
Range("k43").Value = Range("k43").Value + 1
End If
If Not Application.Intersect(Target, Range("l43")) Is Nothing Then
Range("l43").Value = Range("l43").Value + 1
End If
If Not Application.Intersect(Target, Range("m43")) Is Nothing Then
Range("m43").Value = Range("m43").Value + 1
End If
If Not Application.Intersect(Target, Range("n43")) Is Nothing Then
Range("n43").Value = Range("n43").Value + 1
End If
If Not Application.Intersect(Target, Range("o43")) Is Nothing Then
Range("o43").Value = Range("o43").Value + 1
End If
If Not Application.Intersect(Target, Range("p43")) Is Nothing Then
Range("p43").Value = Range("p43").Value + 1
End If
If Not Application.Intersect(Target, Range("q43")) Is Nothing Then
Range("q43").Value = Range("q43").Value + 1
End If

'Q14 PRIVE
If Not Application.Intersect(Target, Range("b45")) Is Nothing Then
Range("b45").Value = Range("b45").Value + 1
End If
If Not Application.Intersect(Target, Range("c45")) Is Nothing Then
Range("c45").Value = Range("c45").Value + 1
End If
If Not Application.Intersect(Target, Range("d45")) Is Nothing Then
Range("d45").Value = Range("d45").Value + 1
End If
If Not Application.Intersect(Target, Range("e45")) Is Nothing Then
Range("e45").Value = Range("e45").Value + 1
End If
If Not Application.Intersect(Target, Range("f45")) Is Nothing Then
Range("f45").Value = Range("f45").Value + 1
End If
If Not Application.Intersect(Target, Range("g45")) Is Nothing Then
Range("g45").Value = Range("g45").Value + 1
End If
If Not Application.Intersect(Target, Range("h45")) Is Nothing Then
Range("h45").Value = Range("h45").Value + 1
End If
If Not Application.Intersect(Target, Range("i45")) Is Nothing Then
Range("i45").Value = Range("i45").Value + 1
End If
If Not Application.Intersect(Target, Range("j45")) Is Nothing Then
Range("j45").Value = Range("j45").Value + 1
End If
If Not Application.Intersect(Target, Range("k45")) Is Nothing Then
Range("k45").Value = Range("k45").Value + 1
End If
If Not Application.Intersect(Target, Range("l45")) Is Nothing Then
Range("l45").Value = Range("l45").Value + 1
End If
If Not Application.Intersect(Target, Range("m45")) Is Nothing Then
Range("m45").Value = Range("m45").Value + 1
End If
If Not Application.Intersect(Target, Range("n45")) Is Nothing Then
Range("n45").Value = Range("n45").Value + 1
End If
If Not Application.Intersect(Target, Range("o45")) Is Nothing Then
Range("o45").Value = Range("o45").Value + 1
End If
If Not Application.Intersect(Target, Range("p45")) Is Nothing Then
Range("p45").Value = Range("p45").Value + 1
End If
If Not Application.Intersect(Target, Range("q45")) Is Nothing Then
Range("q45").Value = Range("q45").Value + 1
End If

'Q15 PRIVE
If Not Application.Intersect(Target, Range("b46")) Is Nothing Then
Range("b46").Value = Range("b46").Value + 1
End If
If Not Application.Intersect(Target, Range("c46")) Is Nothing Then
Range("c46").Value = Range("c46").Value + 1
End If
If Not Application.Intersect(Target, Range("d46")) Is Nothing Then
Range("d46").Value = Range("d46").Value + 1
End If
If Not Application.Intersect(Target, Range("e46")) Is Nothing Then
Range("e46").Value = Range("e46").Value + 1
End If
If Not Application.Intersect(Target, Range("f46")) Is Nothing Then
Range("f46").Value = Range("f46").Value + 1
End If
If Not Application.Intersect(Target, Range("g46")) Is Nothing Then
Range("g46").Value = Range("g46").Value + 1
End If
If Not Application.Intersect(Target, Range("h46")) Is Nothing Then
Range("h46").Value = Range("h46").Value + 1
End If
If Not Application.Intersect(Target, Range("i46")) Is Nothing Then
Range("i46").Value = Range("i46").Value + 1
End If
If Not Application.Intersect(Target, Range("j46")) Is Nothing Then
Range("j46").Value = Range("j46").Value + 1
End If
If Not Application.Intersect(Target, Range("k46")) Is Nothing Then
Range("k46").Value = Range("k46").Value + 1
End If
If Not Application.Intersect(Target, Range("l46")) Is Nothing Then
Range("l46").Value = Range("l46").Value + 1
End If
If Not Application.Intersect(Target, Range("m46")) Is Nothing Then
Range("m46").Value = Range("m46").Value + 1
End If
If Not Application.Intersect(Target, Range("n46")) Is Nothing Then
Range("n46").Value = Range("n46").Value + 1
End If
If Not Application.Intersect(Target, Range("o46")) Is Nothing Then
Range("o46").Value = Range("o46").Value + 1
End If
If Not Application.Intersect(Target, Range("p46")) Is Nothing Then
Range("p46").Value = Range("p46").Value + 1
End If
If Not Application.Intersect(Target, Range("q46")) Is Nothing Then
Range("q46").Value = Range("q46").Value + 1
End If

'Q16 PRIVE
If Not Application.Intersect(Target, Range("b47")) Is Nothing Then
Range("b47").Value = Range("b47").Value + 1
End If
If Not Application.Intersect(Target, Range("c47")) Is Nothing Then
Range("c47").Value = Range("c47").Value + 1
End If
If Not Application.Intersect(Target, Range("d47")) Is Nothing Then
Range("d47").Value = Range("d47").Value + 1
End If
If Not Application.Intersect(Target, Range("e47")) Is Nothing Then
Range("e47").Value = Range("e47").Value + 1
End If
If Not Application.Intersect(Target, Range("f47")) Is Nothing Then
Range("f47").Value = Range("f47").Value + 1
End If
If Not Application.Intersect(Target, Range("g47")) Is Nothing Then
Range("g47").Value = Range("g47").Value + 1
End If
If Not Application.Intersect(Target, Range("h47")) Is Nothing Then
Range("h47").Value = Range("h47").Value + 1
End If
If Not Application.Intersect(Target, Range("i47")) Is Nothing Then
Range("i47").Value = Range("i47").Value + 1
End If
If Not Application.Intersect(Target, Range("j47")) Is Nothing Then
Range("j47").Value = Range("j47").Value + 1
End If
If Not Application.Intersect(Target, Range("k47")) Is Nothing Then
Range("k47").Value = Range("k47").Value + 1
End If
If Not Application.Intersect(Target, Range("l47")) Is Nothing Then
Range("l47").Value = Range("l47").Value + 1
End If
If Not Application.Intersect(Target, Range("m47")) Is Nothing Then
Range("m47").Value = Range("m47").Value + 1
End If
If Not Application.Intersect(Target, Range("n47")) Is Nothing Then
Range("n47").Value = Range("n47").Value + 1
End If
If Not Application.Intersect(Target, Range("o47")) Is Nothing Then
Range("o47").Value = Range("o47").Value + 1
End If
If Not Application.Intersect(Target, Range("p47")) Is Nothing Then
Range("p47").Value = Range("p47").Value + 1
End If
If Not Application.Intersect(Target, Range("q47")) Is Nothing Then
Range("q47").Value = Range("q47").Value + 1
End If

'Q17 PRIVE
If Not Application.Intersect(Target, Range("b48")) Is Nothing Then
Range("b48").Value = Range("b48").Value + 1
End If
If Not Application.Intersect(Target, Range("c48")) Is Nothing Then
Range("c48").Value = Range("c48").Value + 1
End If
If Not Application.Intersect(Target, Range("d48")) Is Nothing Then
Range("d48").Value = Range("d48").Value + 1
End If
If Not Application.Intersect(Target, Range("e48")) Is Nothing Then
Range("e48").Value = Range("e48").Value + 1
End If
If Not Application.Intersect(Target, Range("f48")) Is Nothing Then
Range("f48").Value = Range("f48").Value + 1
End If
If Not Application.Intersect(Target, Range("g48")) Is Nothing Then
Range("g48").Value = Range("g48").Value + 1
End If
If Not Application.Intersect(Target, Range("h48")) Is Nothing Then
Range("h48").Value = Range("h48").Value + 1
End If
If Not Application.Intersect(Target, Range("i48")) Is Nothing Then
Range("i48").Value = Range("i48").Value + 1
End If
If Not Application.Intersect(Target, Range("j48")) Is Nothing Then
Range("j48").Value = Range("j48").Value + 1
End If
If Not Application.Intersect(Target, Range("k48")) Is Nothing Then
Range("k48").Value = Range("k48").Value + 1
End If
If Not Application.Intersect(Target, Range("l48")) Is Nothing Then
Range("l48").Value = Range("l48").Value + 1
End If
If Not Application.Intersect(Target, Range("m48")) Is Nothing Then
Range("m48").Value = Range("m48").Value + 1
End If
If Not Application.Intersect(Target, Range("n48")) Is Nothing Then
Range("n48").Value = Range("n48").Value + 1
End If
If Not Application.Intersect(Target, Range("o48")) Is Nothing Then
Range("o48").Value = Range("o48").Value + 1
End If
If Not Application.Intersect(Target, Range("p48")) Is Nothing Then
Range("p48").Value = Range("p48").Value + 1
End If
If Not Application.Intersect(Target, Range("q48")) Is Nothing Then
Range("q48").Value = Range("q48").Value + 1
End If

'Q18 PRIVE
If Not Application.Intersect(Target, Range("b49")) Is Nothing Then
Range("b49").Value = Range("b49").Value + 1
End If
If Not Application.Intersect(Target, Range("c49")) Is Nothing Then
Range("c49").Value = Range("c49").Value + 1
End If
If Not Application.Intersect(Target, Range("d49")) Is Nothing Then
Range("d49").Value = Range("d49").Value + 1
End If
If Not Application.Intersect(Target, Range("e49")) Is Nothing Then
Range("e49").Value = Range("e49").Value + 1
End If
If Not Application.Intersect(Target, Range("f49")) Is Nothing Then
Range("f49").Value = Range("f49").Value + 1
End If
If Not Application.Intersect(Target, Range("g49")) Is Nothing Then
Range("g49").Value = Range("g49").Value + 1
End If
If Not Application.Intersect(Target, Range("h49")) Is Nothing Then
Range("h49").Value = Range("h49").Value + 1
End If
If Not Application.Intersect(Target, Range("i49")) Is Nothing Then
Range("i49").Value = Range("i49").Value + 1
End If
If Not Application.Intersect(Target, Range("j49")) Is Nothing Then
Range("j49").Value = Range("j49").Value + 1
End If
If Not Application.Intersect(Target, Range("k49")) Is Nothing Then
Range("k49").Value = Range("k49").Value + 1
End If
If Not Application.Intersect(Target, Range("l49")) Is Nothing Then
Range("l49").Value = Range("l49").Value + 1
End If
If Not Application.Intersect(Target, Range("m49")) Is Nothing Then
Range("m49").Value = Range("m49").Value + 1
End If
If Not Application.Intersect(Target, Range("n49")) Is Nothing Then
Range("n49").Value = Range("n49").Value + 1
End If
If Not Application.Intersect(Target, Range("o49")) Is Nothing Then
Range("o49").Value = Range("o49").Value + 1
End If
If Not Application.Intersect(Target, Range("p49")) Is Nothing Then
Range("p49").Value = Range("p49").Value + 1
End If
If Not Application.Intersect(Target, Range("q49")) Is Nothing Then
Range("q49").Value = Range("q49").Value + 1
End If

'Q19 PRIVE
If Not Application.Intersect(Target, Range("b50")) Is Nothing Then
Range("b50").Value = Range("b50").Value + 1
End If
If Not Application.Intersect(Target, Range("c50")) Is Nothing Then
Range("c50").Value = Range("c50").Value + 1
End If
If Not Application.Intersect(Target, Range("d50")) Is Nothing Then
Range("d50").Value = Range("d50").Value + 1
End If
If Not Application.Intersect(Target, Range("e50")) Is Nothing Then
Range("e50").Value = Range("e50").Value + 1
End If
If Not Application.Intersect(Target, Range("f50")) Is Nothing Then
Range("f50").Value = Range("f50").Value + 1
End If
If Not Application.Intersect(Target, Range("g50")) Is Nothing Then
Range("g50").Value = Range("g50").Value + 1
End If
If Not Application.Intersect(Target, Range("h50")) Is Nothing Then
Range("h50").Value = Range("h50").Value + 1
End If
If Not Application.Intersect(Target, Range("i50")) Is Nothing Then
Range("i50").Value = Range("i50").Value + 1
End If
If Not Application.Intersect(Target, Range("j50")) Is Nothing Then
Range("j50").Value = Range("j50").Value + 1
End If
If Not Application.Intersect(Target, Range("k50")) Is Nothing Then
Range("k50").Value = Range("k50").Value + 1
End If
If Not Application.Intersect(Target, Range("l50")) Is Nothing Then
Range("l50").Value = Range("l50").Value + 1
End If
If Not Application.Intersect(Target, Range("m50")) Is Nothing Then
Range("m50").Value = Range("m50").Value + 1
End If
If Not Application.Intersect(Target, Range("n50")) Is Nothing Then
Range("n50").Value = Range("n50").Value + 1
End If
If Not Application.Intersect(Target, Range("o50")) Is Nothing Then
Range("o50").Value = Range("o50").Value + 1
End If
If Not Application.Intersect(Target, Range("p50")) Is Nothing Then
Range("p50").Value = Range("p50").Value + 1
End If
If Not Application.Intersect(Target, Range("q50")) Is Nothing Then
Range("q50").Value = Range("q50").Value + 1
End If

'Q20 PRIVE
If Not Application.Intersect(Target, Range("b51")) Is Nothing Then
Range("b51").Value = Range("b51").Value + 1
End If
If Not Application.Intersect(Target, Range("c51")) Is Nothing Then
Range("c51").Value = Range("c51").Value + 1
End If
If Not Application.Intersect(Target, Range("d51")) Is Nothing Then
Range("d51").Value = Range("d51").Value + 1
End If
If Not Application.Intersect(Target, Range("e51")) Is Nothing Then
Range("e51").Value = Range("e51").Value + 1
End If
If Not Application.Intersect(Target, Range("f51")) Is Nothing Then
Range("f51").Value = Range("f51").Value + 1
End If
If Not Application.Intersect(Target, Range("g51")) Is Nothing Then
Range("g51").Value = Range("g51").Value + 1
End If
If Not Application.Intersect(Target, Range("h51")) Is Nothing Then
Range("h51").Value = Range("h51").Value + 1
End If
If Not Application.Intersect(Target, Range("i51")) Is Nothing Then
Range("i51").Value = Range("i51").Value + 1
End If
If Not Application.Intersect(Target, Range("j51")) Is Nothing Then
Range("j51").Value = Range("j51").Value + 1
End If
If Not Application.Intersect(Target, Range("k51")) Is Nothing Then
Range("k51").Value = Range("k51").Value + 1
End If
If Not Application.Intersect(Target, Range("l51")) Is Nothing Then
Range("l51").Value = Range("l51").Value + 1
End If
If Not Application.Intersect(Target, Range("m51")) Is Nothing Then
Range("m51").Value = Range("m51").Value + 1
End If
If Not Application.Intersect(Target, Range("n51")) Is Nothing Then
Range("n51").Value = Range("n51").Value + 1
End If
If Not Application.Intersect(Target, Range("o51")) Is Nothing Then
Range("o51").Value = Range("o51").Value + 1
End If
If Not Application.Intersect(Target, Range("p51")) Is Nothing Then
Range("p51").Value = Range("p51").Value + 1
End If
If Not Application.Intersect(Target, Range("q51")) Is Nothing Then
Range("q51").Value = Range("q51").Value + 1
End If

'Q21 PRIVE
If Not Application.Intersect(Target, Range("b52")) Is Nothing Then
Range("b52").Value = Range("b52").Value + 1
End If
If Not Application.Intersect(Target, Range("c52")) Is Nothing Then
Range("c52").Value = Range("c52").Value + 1
End If
If Not Application.Intersect(Target, Range("d52")) Is Nothing Then
Range("d52").Value = Range("d52").Value + 1
End If
If Not Application.Intersect(Target, Range("e52")) Is Nothing Then
Range("e52").Value = Range("e52").Value + 1
End If
If Not Application.Intersect(Target, Range("f52")) Is Nothing Then
Range("f52").Value = Range("f52").Value + 1
End If
If Not Application.Intersect(Target, Range("g52")) Is Nothing Then
Range("g52").Value = Range("g52").Value + 1
End If
If Not Application.Intersect(Target, Range("h52")) Is Nothing Then
Range("h52").Value = Range("h52").Value + 1
End If
If Not Application.Intersect(Target, Range("i52")) Is Nothing Then
Range("i52").Value = Range("i52").Value + 1
End If
If Not Application.Intersect(Target, Range("j52")) Is Nothing Then
Range("j52").Value = Range("j52").Value + 1
End If
If Not Application.Intersect(Target, Range("k52")) Is Nothing Then
Range("k52").Value = Range("k52").Value + 1
End If
If Not Application.Intersect(Target, Range("l52")) Is Nothing Then
Range("l52").Value = Range("l52").Value + 1
End If
If Not Application.Intersect(Target, Range("m52")) Is Nothing Then
Range("m52").Value = Range("m52").Value + 1
End If
If Not Application.Intersect(Target, Range("n52")) Is Nothing Then
Range("n52").Value = Range("n52").Value + 1
End If
If Not Application.Intersect(Target, Range("o52")) Is Nothing Then
Range("o52").Value = Range("o52").Value + 1
End If
If Not Application.Intersect(Target, Range("p52")) Is Nothing Then
Range("p52").Value = Range("p52").Value + 1
End If
If Not Application.Intersect(Target, Range("q52")) Is Nothing Then
Range("q52").Value = Range("q52").Value + 1
End If

'Q22 FTP
If Not Application.Intersect(Target, Range("b560")) Is Nothing Then
Range("b560").Value = Range("b560").Value + 1
End If
If Not Application.Intersect(Target, Range("c560")) Is Nothing Then
Range("c560").Value = Range("c560").Value + 1
End If
If Not Application.Intersect(Target, Range("d560")) Is Nothing Then
Range("d560").Value = Range("d560").Value + 1
End If
If Not Application.Intersect(Target, Range("e560")) Is Nothing Then
Range("e560").Value = Range("e560").Value + 1
End If
If Not Application.Intersect(Target, Range("f560")) Is Nothing Then
Range("f560").Value = Range("f560").Value + 1
End If
If Not Application.Intersect(Target, Range("g560")) Is Nothing Then
Range("g560").Value = Range("g560").Value + 1
End If
If Not Application.Intersect(Target, Range("h560")) Is Nothing Then
Range("h560").Value = Range("h560").Value + 1
End If
If Not Application.Intersect(Target, Range("i560")) Is Nothing Then
Range("i560").Value = Range("i560").Value + 1
End If
If Not Application.Intersect(Target, Range("j560")) Is Nothing Then
Range("j560").Value = Range("j560").Value + 1
End If
If Not Application.Intersect(Target, Range("k560")) Is Nothing Then
Range("k560").Value = Range("k560").Value + 1
End If
If Not Application.Intersect(Target, Range("l560")) Is Nothing Then
Range("l560").Value = Range("l560").Value + 1
End If
If Not Application.Intersect(Target, Range("m560")) Is Nothing Then
Range("m560").Value = Range("m560").Value + 1
End If
If Not Application.Intersect(Target, Range("n560")) Is Nothing Then
Range("n560").Value = Range("n560").Value + 1
End If
If Not Application.Intersect(Target, Range("o560")) Is Nothing Then
Range("o560").Value = Range("o560").Value + 1
End If
If Not Application.Intersect(Target, Range("p560")) Is Nothing Then
Range("p560").Value = Range("p560").Value + 1
End If
If Not Application.Intersect(Target, Range("q560")) Is Nothing Then
Range("q560").Value = Range("q560").Value + 1
End If

'Q23 FTP
If Not Application.Intersect(Target, Range("b55")) Is Nothing Then
Range("b55").Value = Range("b55").Value + 1
End If
If Not Application.Intersect(Target, Range("c55")) Is Nothing Then
Range("c55").Value = Range("c55").Value + 1
End If
If Not Application.Intersect(Target, Range("d55")) Is Nothing Then
Range("d55").Value = Range("d55").Value + 1
End If
If Not Application.Intersect(Target, Range("e55")) Is Nothing Then
Range("e55").Value = Range("e55").Value + 1
End If
If Not Application.Intersect(Target, Range("f55")) Is Nothing Then
Range("f55").Value = Range("f55").Value + 1
End If
If Not Application.Intersect(Target, Range("g55")) Is Nothing Then
Range("g55").Value = Range("g55").Value + 1
End If
If Not Application.Intersect(Target, Range("h55")) Is Nothing Then
Range("h55").Value = Range("h55").Value + 1
End If
If Not Application.Intersect(Target, Range("i55")) Is Nothing Then
Range("i55").Value = Range("i55").Value + 1
End If
If Not Application.Intersect(Target, Range("j55")) Is Nothing Then
Range("j55").Value = Range("j55").Value + 1
End If
If Not Application.Intersect(Target, Range("k55")) Is Nothing Then
Range("k55").Value = Range("k55").Value + 1
End If
If Not Application.Intersect(Target, Range("l55")) Is Nothing Then
Range("l55").Value = Range("l55").Value + 1
End If
If Not Application.Intersect(Target, Range("m55")) Is Nothing Then
Range("m55").Value = Range("m55").Value + 1
End If
If Not Application.Intersect(Target, Range("n55")) Is Nothing Then
Range("n55").Value = Range("n55").Value + 1
End If
If Not Application.Intersect(Target, Range("o55")) Is Nothing Then
Range("o55").Value = Range("o55").Value + 1
End If
If Not Application.Intersect(Target, Range("p55")) Is Nothing Then
Range("p55").Value = Range("p55").Value + 1
End If
If Not Application.Intersect(Target, Range("q55")) Is Nothing Then
Range("q55").Value = Range("q55").Value + 1
End If

'Q24 FTP
If Not Application.Intersect(Target, Range("b56")) Is Nothing Then
Range("b56").Value = Range("b56").Value + 1
End If
If Not Application.Intersect(Target, Range("c56")) Is Nothing Then
Range("c56").Value = Range("c56").Value + 1
End If
If Not Application.Intersect(Target, Range("d56")) Is Nothing Then
Range("d56").Value = Range("d56").Value + 1
End If
If Not Application.Intersect(Target, Range("e56")) Is Nothing Then
Range("e56").Value = Range("e56").Value + 1
End If
If Not Application.Intersect(Target, Range("f56")) Is Nothing Then
Range("f56").Value = Range("f56").Value + 1
End If
If Not Application.Intersect(Target, Range("g56")) Is Nothing Then
Range("g56").Value = Range("g56").Value + 1
End If
If Not Application.Intersect(Target, Range("h56")) Is Nothing Then
Range("h56").Value = Range("h56").Value + 1
End If
If Not Application.Intersect(Target, Range("i56")) Is Nothing Then
Range("i56").Value = Range("i56").Value + 1
End If
If Not Application.Intersect(Target, Range("j56")) Is Nothing Then
Range("j56").Value = Range("j56").Value + 1
End If
If Not Application.Intersect(Target, Range("k56")) Is Nothing Then
Range("k56").Value = Range("k56").Value + 1
End If
If Not Application.Intersect(Target, Range("l56")) Is Nothing Then
Range("l56").Value = Range("l56").Value + 1
End If
If Not Application.Intersect(Target, Range("m56")) Is Nothing Then
Range("m56").Value = Range("m56").Value + 1
End If
If Not Application.Intersect(Target, Range("n56")) Is Nothing Then
Range("n56").Value = Range("n56").Value + 1
End If
If Not Application.Intersect(Target, Range("o56")) Is Nothing Then
Range("o56").Value = Range("o56").Value + 1
End If
If Not Application.Intersect(Target, Range("p56")) Is Nothing Then
Range("p56").Value = Range("p56").Value + 1
End If
If Not Application.Intersect(Target, Range("q56")) Is Nothing Then
Range("q56").Value = Range("q56").Value + 1
End If

'Q22 PRIVE
If Not Application.Intersect(Target, Range("b58")) Is Nothing Then
Range("b58").Value = Range("b58").Value + 1
End If
If Not Application.Intersect(Target, Range("c58")) Is Nothing Then
Range("c58").Value = Range("c58").Value + 1
End If
If Not Application.Intersect(Target, Range("d58")) Is Nothing Then
Range("d58").Value = Range("d58").Value + 1
End If
If Not Application.Intersect(Target, Range("e58")) Is Nothing Then
Range("e58").Value = Range("e58").Value + 1
End If
If Not Application.Intersect(Target, Range("f58")) Is Nothing Then
Range("f58").Value = Range("f58").Value + 1
End If
If Not Application.Intersect(Target, Range("g58")) Is Nothing Then
Range("g58").Value = Range("g58").Value + 1
End If
If Not Application.Intersect(Target, Range("h58")) Is Nothing Then
Range("h58").Value = Range("h58").Value + 1
End If
If Not Application.Intersect(Target, Range("i58")) Is Nothing Then
Range("i58").Value = Range("i58").Value + 1
End If
If Not Application.Intersect(Target, Range("j58")) Is Nothing Then
Range("j58").Value = Range("j58").Value + 1
End If
If Not Application.Intersect(Target, Range("k58")) Is Nothing Then
Range("k58").Value = Range("k58").Value + 1
End If
If Not Application.Intersect(Target, Range("l58")) Is Nothing Then
Range("l58").Value = Range("l58").Value + 1
End If
If Not Application.Intersect(Target, Range("m58")) Is Nothing Then
Range("m58").Value = Range("m58").Value + 1
End If
If Not Application.Intersect(Target, Range("n58")) Is Nothing Then
Range("n58").Value = Range("n58").Value + 1
End If
If Not Application.Intersect(Target, Range("o58")) Is Nothing Then
Range("o58").Value = Range("o58").Value + 1
End If
If Not Application.Intersect(Target, Range("p58")) Is Nothing Then
Range("p58").Value = Range("p58").Value + 1
End If
If Not Application.Intersect(Target, Range("q58")) Is Nothing Then
Range("q58").Value = Range("q58").Value + 1
End If

'Q23 PRIVE
If Not Application.Intersect(Target, Range("b59")) Is Nothing Then
Range("b59").Value = Range("b59").Value + 1
End If
If Not Application.Intersect(Target, Range("c59")) Is Nothing Then
Range("c59").Value = Range("c59").Value + 1
End If
If Not Application.Intersect(Target, Range("d59")) Is Nothing Then
Range("d59").Value = Range("d59").Value + 1
End If
If Not Application.Intersect(Target, Range("e59")) Is Nothing Then
Range("e59").Value = Range("e59").Value + 1
End If
If Not Application.Intersect(Target, Range("f59")) Is Nothing Then
Range("f59").Value = Range("f59").Value + 1
End If
If Not Application.Intersect(Target, Range("g59")) Is Nothing Then
Range("g59").Value = Range("g59").Value + 1
End If
If Not Application.Intersect(Target, Range("h59")) Is Nothing Then
Range("h59").Value = Range("h59").Value + 1
End If
If Not Application.Intersect(Target, Range("i59")) Is Nothing Then
Range("i59").Value = Range("i59").Value + 1
End If
If Not Application.Intersect(Target, Range("j59")) Is Nothing Then
Range("j59").Value = Range("j59").Value + 1
End If
If Not Application.Intersect(Target, Range("k59")) Is Nothing Then
Range("k59").Value = Range("k59").Value + 1
End If
If Not Application.Intersect(Target, Range("l59")) Is Nothing Then
Range("l59").Value = Range("l59").Value + 1
End If
If Not Application.Intersect(Target, Range("m59")) Is Nothing Then
Range("m59").Value = Range("m59").Value + 1
End If
If Not Application.Intersect(Target, Range("n59")) Is Nothing Then
Range("n59").Value = Range("n59").Value + 1
End If
If Not Application.Intersect(Target, Range("o59")) Is Nothing Then
Range("o59").Value = Range("o59").Value + 1
End If
If Not Application.Intersect(Target, Range("p59")) Is Nothing Then
Range("p59").Value = Range("p59").Value + 1
End If
If Not Application.Intersect(Target, Range("q59")) Is Nothing Then
Range("q59").Value = Range("q59").Value + 1
End If

'Q24 PRIVE
If Not Application.Intersect(Target, Range("b60")) Is Nothing Then
Range("b60").Value = Range("b60").Value + 1
End If
If Not Application.Intersect(Target, Range("c60")) Is Nothing Then
Range("c60").Value = Range("c60").Value + 1
End If
If Not Application.Intersect(Target, Range("d60")) Is Nothing Then
Range("d60").Value = Range("d60").Value + 1
End If
If Not Application.Intersect(Target, Range("e60")) Is Nothing Then
Range("e60").Value = Range("e60").Value + 1
End If
If Not Application.Intersect(Target, Range("f60")) Is Nothing Then
Range("f60").Value = Range("f60").Value + 1
End If
If Not Application.Intersect(Target, Range("g60")) Is Nothing Then
Range("g60").Value = Range("g60").Value + 1
End If
If Not Application.Intersect(Target, Range("h60")) Is Nothing Then
Range("h60").Value = Range("h60").Value + 1
End If
If Not Application.Intersect(Target, Range("i60")) Is Nothing Then
Range("i60").Value = Range("i60").Value + 1
End If
If Not Application.Intersect(Target, Range("j60")) Is Nothing Then
Range("j60").Value = Range("j60").Value + 1
End If
If Not Application.Intersect(Target, Range("k60")) Is Nothing Then
Range("k60").Value = Range("k60").Value + 1
End If
If Not Application.Intersect(Target, Range("l60")) Is Nothing Then
Range("l60").Value = Range("l60").Value + 1
End If
If Not Application.Intersect(Target, Range("m60")) Is Nothing Then
Range("m60").Value = Range("m60").Value + 1
End If
If Not Application.Intersect(Target, Range("n60")) Is Nothing Then
Range("n60").Value = Range("n60").Value + 1
End If
If Not Application.Intersect(Target, Range("o60")) Is Nothing Then
Range("o60").Value = Range("o60").Value + 1
End If
If Not Application.Intersect(Target, Range("p60")) Is Nothing Then
Range("p60").Value = Range("p60").Value + 1
End If
If Not Application.Intersect(Target, Range("q60")) Is Nothing Then
Range("q60").Value = Range("q60").Value + 1
End If

'Q25 FTP
If Not Application.Intersect(Target, Range("b62")) Is Nothing Then
Range("b62").Value = Range("b62").Value + 1
End If
If Not Application.Intersect(Target, Range("c62")) Is Nothing Then
Range("c62").Value = Range("c62").Value + 1
End If
If Not Application.Intersect(Target, Range("d62")) Is Nothing Then
Range("d62").Value = Range("d62").Value + 1
End If
If Not Application.Intersect(Target, Range("e62")) Is Nothing Then
Range("e62").Value = Range("e62").Value + 1
End If
If Not Application.Intersect(Target, Range("f62")) Is Nothing Then
Range("f62").Value = Range("f62").Value + 1
End If
If Not Application.Intersect(Target, Range("g62")) Is Nothing Then
Range("g62").Value = Range("g62").Value + 1
End If
If Not Application.Intersect(Target, Range("h62")) Is Nothing Then
Range("h62").Value = Range("h62").Value + 1
End If
If Not Application.Intersect(Target, Range("i62")) Is Nothing Then
Range("i62").Value = Range("i62").Value + 1
End If
If Not Application.Intersect(Target, Range("j62")) Is Nothing Then
Range("j62").Value = Range("j62").Value + 1
End If
If Not Application.Intersect(Target, Range("k62")) Is Nothing Then
Range("k62").Value = Range("k62").Value + 1
End If
If Not Application.Intersect(Target, Range("l62")) Is Nothing Then
Range("l62").Value = Range("l62").Value + 1
End If
If Not Application.Intersect(Target, Range("m62")) Is Nothing Then
Range("m62").Value = Range("m62").Value + 1
End If
If Not Application.Intersect(Target, Range("n62")) Is Nothing Then
Range("n62").Value = Range("n62").Value + 1
End If
If Not Application.Intersect(Target, Range("o62")) Is Nothing Then
Range("o62").Value = Range("o62").Value + 1
End If
If Not Application.Intersect(Target, Range("p62")) Is Nothing Then
Range("p62").Value = Range("p62").Value + 1
End If
If Not Application.Intersect(Target, Range("q62")) Is Nothing Then
Range("q62").Value = Range("q62").Value + 1
End If

'Q26 FTP
If Not Application.Intersect(Target, Range("b63")) Is Nothing Then
Range("b63").Value = Range("b63").Value + 1
End If
If Not Application.Intersect(Target, Range("c63")) Is Nothing Then
Range("c63").Value = Range("c63").Value + 1
End If
If Not Application.Intersect(Target, Range("d63")) Is Nothing Then
Range("d63").Value = Range("d63").Value + 1
End If
If Not Application.Intersect(Target, Range("e63")) Is Nothing Then
Range("e63").Value = Range("e63").Value + 1
End If
If Not Application.Intersect(Target, Range("f63")) Is Nothing Then
Range("f63").Value = Range("f63").Value + 1
End If
If Not Application.Intersect(Target, Range("g63")) Is Nothing Then
Range("g63").Value = Range("g63").Value + 1
End If
If Not Application.Intersect(Target, Range("h63")) Is Nothing Then
Range("h63").Value = Range("h63").Value + 1
End If
If Not Application.Intersect(Target, Range("i63")) Is Nothing Then
Range("i63").Value = Range("i63").Value + 1
End If
If Not Application.Intersect(Target, Range("j63")) Is Nothing Then
Range("j63").Value = Range("j63").Value + 1
End If
If Not Application.Intersect(Target, Range("k63")) Is Nothing Then
Range("k63").Value = Range("k63").Value + 1
End If
If Not Application.Intersect(Target, Range("l63")) Is Nothing Then
Range("l63").Value = Range("l63").Value + 1
End If
If Not Application.Intersect(Target, Range("m63")) Is Nothing Then
Range("m63").Value = Range("m63").Value + 1
End If
If Not Application.Intersect(Target, Range("n63")) Is Nothing Then
Range("n63").Value = Range("n63").Value + 1
End If
If Not Application.Intersect(Target, Range("o63")) Is Nothing Then
Range("o63").Value = Range("o63").Value + 1
End If
If Not Application.Intersect(Target, Range("p63")) Is Nothing Then
Range("p63").Value = Range("p63").Value + 1
End If
If Not Application.Intersect(Target, Range("q63")) Is Nothing Then
Range("q63").Value = Range("q63").Value + 1
End If

'Q27 FTP
If Not Application.Intersect(Target, Range("b64")) Is Nothing Then
Range("b64").Value = Range("b64").Value + 1
End If
If Not Application.Intersect(Target, Range("c64")) Is Nothing Then
Range("c64").Value = Range("c64").Value + 1
End If
If Not Application.Intersect(Target, Range("d64")) Is Nothing Then
Range("d64").Value = Range("d64").Value + 1
End If
If Not Application.Intersect(Target, Range("e64")) Is Nothing Then
Range("e64").Value = Range("e64").Value + 1
End If
If Not Application.Intersect(Target, Range("f64")) Is Nothing Then
Range("f64").Value = Range("f64").Value + 1
End If
If Not Application.Intersect(Target, Range("g64")) Is Nothing Then
Range("g64").Value = Range("g64").Value + 1
End If
If Not Application.Intersect(Target, Range("h64")) Is Nothing Then
Range("h64").Value = Range("h64").Value + 1
End If
If Not Application.Intersect(Target, Range("i64")) Is Nothing Then
Range("i64").Value = Range("i64").Value + 1
End If
If Not Application.Intersect(Target, Range("j64")) Is Nothing Then
Range("j64").Value = Range("j64").Value + 1
End If
If Not Application.Intersect(Target, Range("k64")) Is Nothing Then
Range("k64").Value = Range("k64").Value + 1
End If
If Not Application.Intersect(Target, Range("l64")) Is Nothing Then
Range("l64").Value = Range("l64").Value + 1
End If
If Not Application.Intersect(Target, Range("m64")) Is Nothing Then
Range("m64").Value = Range("m64").Value + 1
End If
If Not Application.Intersect(Target, Range("n64")) Is Nothing Then
Range("n64").Value = Range("n64").Value + 1
End If
If Not Application.Intersect(Target, Range("o64")) Is Nothing Then
Range("o64").Value = Range("o64").Value + 1
End If
If Not Application.Intersect(Target, Range("p64")) Is Nothing Then
Range("p64").Value = Range("p64").Value + 1
End If
If Not Application.Intersect(Target, Range("q64")) Is Nothing Then
Range("q64").Value = Range("q64").Value + 1
End If

'Q25 PRIVE
If Not Application.Intersect(Target, Range("b66")) Is Nothing Then
Range("b66").Value = Range("b66").Value + 1
End If
If Not Application.Intersect(Target, Range("c66")) Is Nothing Then
Range("c66").Value = Range("c66").Value + 1
End If
If Not Application.Intersect(Target, Range("d66")) Is Nothing Then
Range("d66").Value = Range("d66").Value + 1
End If
If Not Application.Intersect(Target, Range("e66")) Is Nothing Then
Range("e66").Value = Range("e66").Value + 1
End If
If Not Application.Intersect(Target, Range("f66")) Is Nothing Then
Range("f66").Value = Range("f66").Value + 1
End If
If Not Application.Intersect(Target, Range("g66")) Is Nothing Then
Range("g66").Value = Range("g66").Value + 1
End If
If Not Application.Intersect(Target, Range("h66")) Is Nothing Then
Range("h66").Value = Range("h66").Value + 1
End If
If Not Application.Intersect(Target, Range("i66")) Is Nothing Then
Range("i66").Value = Range("i66").Value + 1
End If
If Not Application.Intersect(Target, Range("j66")) Is Nothing Then
Range("j66").Value = Range("j66").Value + 1
End If
If Not Application.Intersect(Target, Range("k66")) Is Nothing Then
Range("k66").Value = Range("k66").Value + 1
End If
If Not Application.Intersect(Target, Range("l66")) Is Nothing Then
Range("l66").Value = Range("l66").Value + 1
End If
If Not Application.Intersect(Target, Range("m66")) Is Nothing Then
Range("m66").Value = Range("m66").Value + 1
End If
If Not Application.Intersect(Target, Range("n66")) Is Nothing Then
Range("n66").Value = Range("n66").Value + 1
End If
If Not Application.Intersect(Target, Range("o66")) Is Nothing Then
Range("o66").Value = Range("o66").Value + 1
End If
If Not Application.Intersect(Target, Range("p66")) Is Nothing Then
Range("p66").Value = Range("p66").Value + 1
End If
If Not Application.Intersect(Target, Range("q66")) Is Nothing Then
Range("q66").Value = Range("q66").Value + 1
End If

'Q26 PRIVE
If Not Application.Intersect(Target, Range("b67")) Is Nothing Then
Range("b67").Value = Range("b67").Value + 1
End If
If Not Application.Intersect(Target, Range("c67")) Is Nothing Then
Range("c67").Value = Range("c67").Value + 1
End If
If Not Application.Intersect(Target, Range("d67")) Is Nothing Then
Range("d67").Value = Range("d67").Value + 1
End If
If Not Application.Intersect(Target, Range("e67")) Is Nothing Then
Range("e67").Value = Range("e67").Value + 1
End If
If Not Application.Intersect(Target, Range("f67")) Is Nothing Then
Range("f67").Value = Range("f67").Value + 1
End If
If Not Application.Intersect(Target, Range("g67")) Is Nothing Then
Range("g67").Value = Range("g67").Value + 1
End If
If Not Application.Intersect(Target, Range("h67")) Is Nothing Then
Range("h67").Value = Range("h67").Value + 1
End If
If Not Application.Intersect(Target, Range("i67")) Is Nothing Then
Range("i67").Value = Range("i67").Value + 1
End If
If Not Application.Intersect(Target, Range("j67")) Is Nothing Then
Range("j67").Value = Range("j67").Value + 1
End If
If Not Application.Intersect(Target, Range("k67")) Is Nothing Then
Range("k67").Value = Range("k67").Value + 1
End If
If Not Application.Intersect(Target, Range("l67")) Is Nothing Then
Range("l67").Value = Range("l67").Value + 1
End If
If Not Application.Intersect(Target, Range("m67")) Is Nothing Then
Range("m67").Value = Range("m67").Value + 1
End If
If Not Application.Intersect(Target, Range("n67")) Is Nothing Then
Range("n67").Value = Range("n67").Value + 1
End If
If Not Application.Intersect(Target, Range("o67")) Is Nothing Then
Range("o67").Value = Range("o67").Value + 1
End If
If Not Application.Intersect(Target, Range("p67")) Is Nothing Then
Range("p67").Value = Range("p67").Value + 1
End If
If Not Application.Intersect(Target, Range("q67")) Is Nothing Then
Range("q67").Value = Range("q67").Value + 1
End If

'Q27 PRIVE
If Not Application.Intersect(Target, Range("b68")) Is Nothing Then
Range("b68").Value = Range("b68").Value + 1
End If
If Not Application.Intersect(Target, Range("c68")) Is Nothing Then
Range("c68").Value = Range("c68").Value + 1
End If
If Not Application.Intersect(Target, Range("d68")) Is Nothing Then
Range("d68").Value = Range("d68").Value + 1
End If
If Not Application.Intersect(Target, Range("e68")) Is Nothing Then
Range("e68").Value = Range("e68").Value + 1
End If
If Not Application.Intersect(Target, Range("f68")) Is Nothing Then
Range("f68").Value = Range("f68").Value + 1
End If
If Not Application.Intersect(Target, Range("g68")) Is Nothing Then
Range("g68").Value = Range("g68").Value + 1
End If
If Not Application.Intersect(Target, Range("h68")) Is Nothing Then
Range("h68").Value = Range("h68").Value + 1
End If
If Not Application.Intersect(Target, Range("i68")) Is Nothing Then
Range("i68").Value = Range("i68").Value + 1
End If
If Not Application.Intersect(Target, Range("j68")) Is Nothing Then
Range("j68").Value = Range("j68").Value + 1
End If
If Not Application.Intersect(Target, Range("k68")) Is Nothing Then
Range("k68").Value = Range("k68").Value + 1
End If
If Not Application.Intersect(Target, Range("l68")) Is Nothing Then
Range("l68").Value = Range("l68").Value + 1
End If
If Not Application.Intersect(Target, Range("m68")) Is Nothing Then
Range("m68").Value = Range("m68").Value + 1
End If
If Not Application.Intersect(Target, Range("n68")) Is Nothing Then
Range("n68").Value = Range("n68").Value + 1
End If
If Not Application.Intersect(Target, Range("o68")) Is Nothing Then
Range("o68").Value = Range("o68").Value + 1
End If
If Not Application.Intersect(Target, Range("p68")) Is Nothing Then
Range("p68").Value = Range("p68").Value + 1
End If
If Not Application.Intersect(Target, Range("q68")) Is Nothing Then
Range("q68").Value = Range("q68").Value + 1
End If

'Q28 FTP
If Not Application.Intersect(Target, Range("b70")) Is Nothing Then
Range("b70").Value = Range("b70").Value + 1
End If
If Not Application.Intersect(Target, Range("c70")) Is Nothing Then
Range("c70").Value = Range("c70").Value + 1
End If
If Not Application.Intersect(Target, Range("d70")) Is Nothing Then
Range("d70").Value = Range("d70").Value + 1
End If
If Not Application.Intersect(Target, Range("e70")) Is Nothing Then
Range("e70").Value = Range("e70").Value + 1
End If
If Not Application.Intersect(Target, Range("f70")) Is Nothing Then
Range("f70").Value = Range("f70").Value + 1
End If
If Not Application.Intersect(Target, Range("g70")) Is Nothing Then
Range("g70").Value = Range("g70").Value + 1
End If
If Not Application.Intersect(Target, Range("h70")) Is Nothing Then
Range("h70").Value = Range("h70").Value + 1
End If
If Not Application.Intersect(Target, Range("i70")) Is Nothing Then
Range("i70").Value = Range("i70").Value + 1
End If
If Not Application.Intersect(Target, Range("j70")) Is Nothing Then
Range("j70").Value = Range("j70").Value + 1
End If
If Not Application.Intersect(Target, Range("k70")) Is Nothing Then
Range("k70").Value = Range("k70").Value + 1
End If
If Not Application.Intersect(Target, Range("l70")) Is Nothing Then
Range("l70").Value = Range("l70").Value + 1
End If
If Not Application.Intersect(Target, Range("m70")) Is Nothing Then
Range("m70").Value = Range("m70").Value + 1
End If
If Not Application.Intersect(Target, Range("n70")) Is Nothing Then
Range("n70").Value = Range("n70").Value + 1
End If
If Not Application.Intersect(Target, Range("o70")) Is Nothing Then
Range("o70").Value = Range("o70").Value + 1
End If
If Not Application.Intersect(Target, Range("p70")) Is Nothing Then
Range("p70").Value = Range("p70").Value + 1
End If
If Not Application.Intersect(Target, Range("q70")) Is Nothing Then
Range("q70").Value = Range("q70").Value + 1
End If

'Q28 PRIVE
If Not Application.Intersect(Target, Range("b72")) Is Nothing Then
Range("b72").Value = Range("b72").Value + 1
End If
If Not Application.Intersect(Target, Range("c72")) Is Nothing Then
Range("c72").Value = Range("c72").Value + 1
End If
If Not Application.Intersect(Target, Range("d72")) Is Nothing Then
Range("d72").Value = Range("d72").Value + 1
End If
If Not Application.Intersect(Target, Range("e72")) Is Nothing Then
Range("e72").Value = Range("e72").Value + 1
End If
If Not Application.Intersect(Target, Range("f72")) Is Nothing Then
Range("f72").Value = Range("f72").Value + 1
End If
If Not Application.Intersect(Target, Range("g72")) Is Nothing Then
Range("g72").Value = Range("g72").Value + 1
End If
If Not Application.Intersect(Target, Range("h72")) Is Nothing Then
Range("h72").Value = Range("h72").Value + 1
End If
If Not Application.Intersect(Target, Range("i72")) Is Nothing Then
Range("i72").Value = Range("i72").Value + 1
End If
If Not Application.Intersect(Target, Range("j72")) Is Nothing Then
Range("j72").Value = Range("j72").Value + 1
End If
If Not Application.Intersect(Target, Range("k72")) Is Nothing Then
Range("k72").Value = Range("k72").Value + 1
End If
If Not Application.Intersect(Target, Range("l72")) Is Nothing Then
Range("l72").Value = Range("l72").Value + 1
End If
If Not Application.Intersect(Target, Range("m72")) Is Nothing Then
Range("m72").Value = Range("m72").Value + 1
End If
If Not Application.Intersect(Target, Range("n72")) Is Nothing Then
Range("n72").Value = Range("n72").Value + 1
End If
If Not Application.Intersect(Target, Range("o72")) Is Nothing Then
Range("o72").Value = Range("o72").Value + 1
End If
If Not Application.Intersect(Target, Range("p72")) Is Nothing Then
Range("p72").Value = Range("p72").Value + 1
End If
If Not Application.Intersect(Target, Range("q72")) Is Nothing Then
Range("q72").Value = Range("q72").Value + 1
End If

End Sub

 

[Roland_M]

Re : Procédure trop grande

re

voir si ok !

 

[domeli]

Re : Procédure trop grande

Les graphiques ça va être sympa aussi.
2 cat. d'emplyés : FTP et PRIVE
8 cat. de questions
4 réponses
C'est du 3 dimensions. Il faut cinquante mille graphes. LOL

 

[Roland_M]

Re : Procédure trop grande

re

as-tu vu ton classeur au post#31 ?

 

[domeli]

Re : Procédure trop grande

Oh ben oui! Si tu le prends comme ça!
J'avais pas vu.
C'est trop bien, comme ça, s'il arrive d'autres délégations je pourrai faire en fonction.
Cool.

 

[domeli]

Re : Procédure trop grande

Tu verrais ça comment toi pour les graphiques et que ce ne soit pas fouillis sur chaque feuille?
Parce que moi dans un premier temps je vois (2 X 8 X 4) par feuille; c'est énorme!

 

[Roland_M]

Re : Procédure trop grande

re

là malheureusement le graph c'est pas trop mon fort !
quand j'ai besoin je trouve toujours évidemment, mais c'est différent c'est "ma salade"
par-contre avec le travail de qq d'autre pas toujours facile de se projeter !?

s'il en faut absolument un par feuille tu n'auras pas le choix !
sinon je pense qu'il serait possible de créer un graphique dans une feuille indépendante
avec une sélection du choix de la feuille d'où le graphe irait chercher ses données !
donc une feuille avec seul un graph standart tout prêt
une box pour sélectionner la feuille !
et bien entendu une macro à faire pour incorporer les données de cette feuille dans ce graph !?

 

[domeli]

Re : Procédure trop grande

En fait le truc c'est de voir la tendance des réponses par catégorie.
Par exemple:
PRIVE --> Catégorie de question II) --> Q5 Q6 Q7 --> Rép.1 R2 R3 R4 --> Employé Gardien A. Maitrise et Cadres.
Donc si je peux choisir dans une box ou un UserForm le graphique que je veux et qu'il se fasse automatiquement... J'achette!

Mais je sais pas faire ça.

 

[domeli]

Re : Procédure trop grande

Je vois pas comment montrer la pertinence des réponses, qui seront anonymes, avec toutes ces catégories.

 

[Roland_M]

Re : Procédure trop grande

re

tu peux peut être faire sans graphique, voir simplement en face des réponses,
rajouter des colonnes (R,S,T ... pour un récapitulatif des résultats !?

 

[domeli]

Re : Procédure trop grande

Je comprends pas trop ce que tu me dit.
Tu veux dire sommer les réponses qui vont ensemble pour réduire les catégories?

 

[domeli]

Re : Procédure trop grande

Les réponses, c'est:
Totalement d'accord - en accord - En désaccord - Totalement en désaccord.
...Ah! Plutôt un pourcentage, c'est ça?

 

[domeli]

Re : Procédure trop grande

Regarde ce que ça fait dans Suresnes.
FTP --> Q1 à Q4 --> 4 réponses --> Employés.

Ce qui veut dire 8 graphiques par catégorie de questions (4 FTP + 4 PRIVE)... Imbittable!
En plus ça fonctionne qu'en Histogramme.

Mais c'est ce que je veux faire ressortir, alors si tu as une autre idée, je veux bien.

 

[Roland_M]

Re : Procédure trop grande

re

hum ! effectivement pas évident !

mais petite question, pourquoi s'embêter à double-cliquer 10 fois par exemple,
ne serait t'il pas plus simple de taper 10 dans la cellule ?

pour le graphe perso j'aurai choisi celui-ci plus explicite me semble t'il !?
et les couleurs seraient plus judicieuses
vert pour les satisfaits, vert plus clair pour les moins satisfaits
rouge clair pour les insatisfaits et rouge pour les totalement insatisfaits

voir exemple ci-joint

 

[domeli]

Re : Procédure trop grande

Pour 2 raisons:
D'abord les questionnaires font 6 pages en pdf avec cases à cocher. Donc pour dépouiller c'est plus simple de double cliquer dans la cellule correspondante en tournant les pages, tout ça quoi!
Ensuite, c'est pour le fun. J'adore excel et ça m'amuse de trouver des nouveaux trucs. Mais vu que la programmation et moi ça fait 2, je suis plutôt du genre formules SI, ET, OU, SOMMEPROD, etc...
D'habitude j'aime ça les stats et tableau de bord, mais là avec cette synthèse, j'avoue que je sèche un peu pour des résultats visuels.
Sinon pour les couleurs oui c'est bien je ne m'y était pas encore attardé vu que je planche sur la structure. Mais ça ne change pas le problème, je ne vois pas comment visualiser graphiquement ces résultats sans faire fouillis avec une tonne de graphes.

 

[domeli]

Re : Procédure trop grande

A moins peut-être de les appeler via des boutons mais comment construire le graphique en macro facilement et sans passer par l'enregistreur car ça ne sera jamais pareil vu que ça va jamais du premier coup les graphiques.