Procédure trop grande

domeli

XLDnaute Junior
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

XLDnaute Barbatruc
Re : Procédure trop grande

re

voir comme ceci alors:

Code:
'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
 
Dernière édition:

domeli

XLDnaute Junior
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
 

Roland_M

XLDnaute Barbatruc
Re : Procédure trop grande

re

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

Code:
'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
 
Dernière édition:

domeli

XLDnaute Junior
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?
 

Roland_M

XLDnaute Barbatruc
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:
Code:
'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 !
 
Dernière édition:

domeli

XLDnaute Junior
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

XLDnaute Barbatruc
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 !

Code:
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

XLDnaute Junior
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

XLDnaute Junior
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
 

Pièces jointes

  • Questionnaire DP.xls
    237.5 KB · Affichages: 29
  • Questionnaire DP.xls
    237.5 KB · Affichages: 28

Discussions similaires

Réponses
1
Affichages
113

Statistiques des forums

Discussions
313 288
Messages
2 096 843
Membres
106 762
dernier inscrit
geraldged19780604