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 comme ceci alors:

'1' lig à la dernière ligne 72 !? A TOI DE VOIR ! par pas de 5
'soit 4-7 puis 9-12 14-16 etc
For LigX = 4 To 72 Step 5
For Lig = LigX To LigX + 3
For Col = 2 To 17 ' et ici les colonnes de B à Q !?
If Not Application.Intersect(Target, Cells(Lig, Col)) Is Nothing Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next Col: Next Lig: Next LigX

 

[domeli]

Re : Procédure trop grande

FTP Q1 Q2 Q3 Q4 Lig 4,5,6,7
PRIVE Q1 Q2 Q3 Q4 Lig 9,10,11,12
FTP Q5 Q6 Q7 Lig 14,15,16
PRIVE Q5 Q6 Q7 Lig 18,19,20
FTP Q8 Q9 Q10 Q11 Q12 Q13 Lig 22,23,24,25,26,27
PRIVE Q8 Q9 Q10 Q11 Q12 Q13 Lig 29,30,31,32,33,34
FTP Q14 Q15 Q16 Q17 Q18 Q19 Q20 Q21 Lig 36,37,38,39,40,41,42,43
PRIVE Q14 Q15 Q16 Q17 Q18 Q19 Q20 Q21 Lig 45,46,47,48,49,50,51,52
FTP Q22 Q23 Q24 Lig 54,55,56
PRIVE Q22 Q23 Q24 Lig 58,59,60
FTP Q25 Q26 Q27 Lig 62,63,64
PRIVE Q25 Q26 Q27 Lig 66,67,68
FTP Q28 Lig 70
PRIVE Q28 Lig 72

 

[domeli]

Re : Procédure trop grande

Ce sont des catégories de questions et je ne peux pas les dissocier dans mon tableau.
Après je vais avoir les graphiques à faire.

 

[domeli]

Re : Procédure trop grande

et puis 241 lignes de codes avec la façon JCGL c'est pas mal par rapport à mes 2804 du début.
Alors te casses pas trop la tête.

 

[Roland_M]

Re : Procédure trop grande

re

je vais regarder avec ce que tu as mis et je reviens !

 

[Roland_M]

Re : Procédure trop grande

re

tu vérifies bien c'est pas compliqué !

'FTP Q1 Q2 Q3 Q4 Lig 4,5,6,7
For Lig = 4 To 7: For Col = 2 To 17
 If Not Application.Intersect(Target, Cells(Lig, Col)) Is Nothing Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'PRIVE Q1 Q2 Q3 Q4 Lig 9,10,11,12
For Lig = 9 To 12: For Col = 2 To 17
 If Not Application.Intersect(Target, Cells(Lig, Col)) Is Nothing Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'FTP Q5 Q6 Q7 Lig 14,15,16
For Lig = 14 To 16: For Col = 2 To 17
 If Not Application.Intersect(Target, Cells(Lig, Col)) Is Nothing Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'PRIVE Q5 Q6 Q7 Lig 18,19,20
For Lig = 18 To 20: For Col = 2 To 17
 If Not Application.Intersect(Target, Cells(Lig, Col)) Is Nothing Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'FTP Q8 Q9 Q10 Q11 Q12 Q13 Lig 22,23,24,25,26,27
For Lig = 22 To 27: For Col = 2 To 17
 If Not Application.Intersect(Target, Cells(Lig, Col)) Is Nothing Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'PRIVE Q8 Q9 Q10 Q11 Q12 Q13 Lig 29,30,31,32,33,34
For Lig = 29 To 34: For Col = 2 To 17
 If Not Application.Intersect(Target, Cells(Lig, Col)) Is Nothing Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'FTP Q14 Q15 Q16 Q17 Q18 Q19 Q20 Q21 Lig 36,37,38,39,40,41,42,43
For Lig = 36 To 43: For Col = 2 To 17
 If Not Application.Intersect(Target, Cells(Lig, Col)) Is Nothing Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'PRIVE Q14 Q15 Q16 Q17 Q18 Q19 Q20 Q21 Lig 45,46,47,48,49,50,51,52
For Lig = 45 To 52: For Col = 2 To 17
 If Not Application.Intersect(Target, Cells(Lig, Col)) Is Nothing Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'FTP Q22 Q23 Q24 Lig 54,55,56
For Lig = 54 To 56: For Col = 2 To 17
 If Not Application.Intersect(Target, Cells(Lig, Col)) Is Nothing Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'PRIVE Q22 Q23 Q24 Lig 58,59,60
For Lig = 58 To 60: For Col = 2 To 17
 If Not Application.Intersect(Target, Cells(Lig, Col)) Is Nothing Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'FTP Q25 Q26 Q27 Lig 62,63,64
For Lig = 62 To 64: For Col = 2 To 17
 If Not Application.Intersect(Target, Cells(Lig, Col)) Is Nothing Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'PRIVE Q25 Q26 Q27 Lig 66,67,68
For Lig = 66 To 68: For Col = 2 To 17
 If Not Application.Intersect(Target, Cells(Lig, Col)) Is Nothing Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'FTP Q28 Lig 70
Lig = 70: For Col = 2 To 17
 If Not Application.Intersect(Target, Cells(Lig, Col)) Is Nothing Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next
'PRIVE Q28 Lig 72
Lig = 72: For Col = 2 To 17
 If Not Application.Intersect(Target, Cells(Lig, Col)) Is Nothing Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next

 

[domeli]

Re : Procédure trop grande

Petite question subsidiaire.
Ce questionnaire est pour une délégation et j'en ai 6 identiques.
Donc j'ai le choix de faire 6 fichiers différents ou de créer 6 onglets avec des noms différents.
Dans ce cas, dois-je reporter tout le code dans chaque feuille ou on peux faire plus simple?

 

[domeli]

Re : Procédure trop grande

Ouai! Ça marche nickel!
T'as un robot pour écrire? LOL

Et 56 lignes. C'est mieux!

Mais je me garde les 2 façons ça peut servir.

Merci à vous deux

 

[Roland_M]

Re : Procédure trop grande

re

oui tu peux recopier si le format est le même !
maintenant on peut toujours simplifier en se servant de tableau Array() mais je vais pas te perdre avec ça !
(voir à la fin réponse à ta question)

sinon un peu plus court:

'FTP Q1 Q2 Q3 Q4 Lig 4,5,6,7
For Lig = 4 To 7: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'PRIVE Q1 Q2 Q3 Q4 Lig 9,10,11,12
For Lig = 9 To 12: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'FTP Q5 Q6 Q7 Lig 14,15,16
For Lig = 14 To 16: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'PRIVE Q5 Q6 Q7 Lig 18,19,20
For Lig = 18 To 20: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'FTP Q8 Q9 Q10 Q11 Q12 Q13 Lig 22,23,24,25,26,27
For Lig = 22 To 27: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'PRIVE Q8 Q9 Q10 Q11 Q12 Q13 Lig 29,30,31,32,33,34
For Lig = 29 To 34: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'FTP Q14 Q15 Q16 Q17 Q18 Q19 Q20 Q21 Lig 36,37,38,39,40,41,42,43
For Lig = 36 To 43: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'PRIVE Q14 Q15 Q16 Q17 Q18 Q19 Q20 Q21 Lig 45,46,47,48,49,50,51,52
For Lig = 45 To 52: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'FTP Q22 Q23 Q24 Lig 54,55,56
For Lig = 54 To 56: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'PRIVE Q22 Q23 Q24 Lig 58,59,60
For Lig = 58 To 60: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'FTP Q25 Q26 Q27 Lig 62,63,64
For Lig = 62 To 64: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'PRIVE Q25 Q26 Q27 Lig 66,67,68
For Lig = 66 To 68: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next: Next
'FTP Q28 Lig 70
Lig = 70: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next
'PRIVE Q28 Lig 72
Lig = 72: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Exit Sub
Next

concernant ta question, si tu as plusieurs onglets identiques dans le classeur,
alors un seul endroit pour tous, le code dans Thisworkbook
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

End Sub


et tu peux tester les feuille avec Sh je t'expliquerais après si besoin !


EDIT: je ne suis pas un robot mais le copier/coller adéquat
et aussi création de codes avec des boucles et debug.print dans la fenêtre exécution
là aussi une astuce d'anciens qui vient avec l'expérience !

 

[domeli]

Re : Procédure trop grande

ok ok j'ai tout compris! LOL Surtout à cette heure.
Je vois ça demain; je me lève à 5 h.

Je vais vois pour le thisworkbook. J'y avais pensé mais je savais pas si on pouvait.

Bon à la prochaine et bonne nuit. Merci encore.

 

[Roland_M]

Re : Procédure trop grande

bonjour,

je suppose que lorsque les personnes aurons double-cliqué ils n'interviennent pas sur la cellule !?
dans ce cas il faut mettre Cancel = True pour sortir de la cellule !

voir cette macro à placer dans Thisworkbook !
tu n'auras plus qu'à mettre les noms des feuilles concernées !

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'ICI tu mets les noms des feuilles qui seront concernées
Select Case Sh.Name
  Case "Feuil2", "Feuil3", "Feuil5", "Feuil6" 'ce sera ok
  Case Else: Exit Sub 'sinon sortie
End Select

'FTP Q1 Q2 Q3 Q4 Lig 4,5,6,7
For Lig = 4 To 7: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Cancel = True: Exit Sub
Next: Next
'PRIVE Q1 Q2 Q3 Q4 Lig 9,10,11,12
For Lig = 9 To 12: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Cancel = True: Exit Sub
Next: Next
'FTP Q5 Q6 Q7 Lig 14,15,16
For Lig = 14 To 16: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Cancel = True: Exit Sub
Next: Next
'PRIVE Q5 Q6 Q7 Lig 18,19,20
For Lig = 18 To 20: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Cancel = True: Exit Sub
Next: Next
'FTP Q8 Q9 Q10 Q11 Q12 Q13 Lig 22,23,24,25,26,27
For Lig = 22 To 27: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Cancel = True: Exit Sub
Next: Next
'PRIVE Q8 Q9 Q10 Q11 Q12 Q13 Lig 29,30,31,32,33,34
For Lig = 29 To 34: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Cancel = True: Exit Sub
Next: Next
'FTP Q14 Q15 Q16 Q17 Q18 Q19 Q20 Q21 Lig 36,37,38,39,40,41,42,43
For Lig = 36 To 43: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Cancel = True: Exit Sub
Next: Next
'PRIVE Q14 Q15 Q16 Q17 Q18 Q19 Q20 Q21 Lig 45,46,47,48,49,50,51,52
For Lig = 45 To 52: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Cancel = True: Exit Sub
Next: Next
'FTP Q22 Q23 Q24 Lig 54,55,56
For Lig = 54 To 56: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Cancel = True: Exit Sub
Next: Next
'PRIVE Q22 Q23 Q24 Lig 58,59,60
For Lig = 58 To 60: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Cancel = True: Exit Sub
Next: Next
'FTP Q25 Q26 Q27 Lig 62,63,64
For Lig = 62 To 64: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Cancel = True: Exit Sub
Next: Next
'PRIVE Q25 Q26 Q27 Lig 66,67,68
For Lig = 66 To 68: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Cancel = True: Exit Sub
Next: Next
'FTP Q28 Lig 70
Lig = 70: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Cancel = True: Exit Sub
Next
'PRIVE Q28 Lig 72
Lig = 72: For Col = 2 To 17
 If Target.Address = Cells(Lig, Col).Address Then Cells(Lig, Col) = Cells(Lig, Col) + 1: Cancel = True: Exit Sub
Next
End Sub

 

[domeli]

Re : Procédure trop grande

Bonjour Roland
Marche nickel dans thisworkbook. Même mieux car maintenant je peux double clique à la suite ce que je ne pouvais pas faire avant.
Je suppose que c'est grâce au "Cancel = True".
Donc 8 onglets dont 7 identiques au niveau du questionnaire. Comme par hazard, le 8ème a 29 questions LOL. Mais pas grave puisque je mets les feuilles que je veux.
Normalement, si je mets ce code dans la feuille concernée sans le Select Case, ça devrait marcher pareil. A condition de mettre:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
à ,la place en début de code.

 

[domeli]

Re : Procédure trop grande

OK C'est bon. Fonctionne nickel. Si tu veux t'amuser, je t'envoie le fichier.
Maintenant, il faut que je m’attelle aux graphiques pour les résultats.

Merci encore

 

[Roland_M]

Re : Procédure trop grande

bonjour,

pour m'éviter de chercher, quelle est la différence avec cette feuille "siege" et les autres
car je pense que l'on peut l'incorporer avec un simple test !?

 

[domeli]

Re : Procédure trop grande

la 29 ème question.
Regarde le fichier tu vas comprendre.