Procédure trop grande

domeli · 19 Novembre 2015

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 · 19 Novembre 2015

Re : Procédure trop grande

bonsoir,

hum ! effectivement ça fait mal aux yeux !
un exemple comme un autre, ici pour la question 1 et tu fais idem pour les autres

Code:

'c'est toujours de B à Q apparemment !?
'Q1 FTP 
For I = 66 To 81: R$ = Chr(I) & "60"
 If Not Application.Intersect(Target, Range(R$)) Is Nothing Then Range(R$).Value = Range(R$).Value + 1
Next
'Q2 FTP 
For I = 66 To 81: R$ = Chr(I) & "5"
 If Not Application.Intersect(Target, Range(R$)) Is Nothing Then Range(R$).Value = Range(R$).Value + 1
Next

' . . .

EDIT: ou encore la proposition de JCGL, que je salut au passage, même genre un peu plus simple.

domeli · 19 Novembre 2015

Re : Procédure trop grande

Merci de ta réponse rapide.
Je teste tout de suite.

JCGL · 19 Novembre 2015

Re : Procédure trop grande

Bonjour à tous,

Peux-tu essyer une procédure du genre :

VB:

'Q1 FTP
Dim Col&
For Col = 2 To 17
If Not Application.Intersect(Target, Cells(60, Col)) Is Nothing Then Cells(60, Col) = Cells(60, Col) + 1
Next Col
'Q2 FTP
For Col = 2 To 17
If Not Application.Intersect(Target, Cells(5, Col)) Is Nothing Then Cells(5, Col).Value = Cells(5, Col) + 1
Next Col

A+ à tous

Edition : Salut Roland.

domeli · 19 Novembre 2015

Re : Procédure trop grande

Attends, j'ai un souci là. J'ai du faire une bettise avec le CTRL H . La Q1 c'est ça:

If Not Application.Intersect(Target, Range("b4")) Is Nothing Then
Range("b4").Value = Range("b4").Value + 1
End If
If Not Application.Intersect(Target, Range("c4")) Is Nothing Then
Range("c4").Value = Range("c4").Value + 1
End If
If Not Application.Intersect(Target, Range("d4")) Is Nothing Then
Range("d4").Value = Range("d4").Value + 1
End If
If Not Application.Intersect(Target, Range("e4")) Is Nothing Then
Range("e4").Value = Range("e4").Value + 1
End If
If Not Application.Intersect(Target, Range("f4")) Is Nothing Then
Range("f4").Value = Range("f4").Value + 1
End If
If Not Application.Intersect(Target, Range("g4")) Is Nothing Then
Range("g4").Value = Range("g4").Value + 1
End If
If Not Application.Intersect(Target, Range("h4")) Is Nothing Then
Range("h4").Value = Range("h4").Value + 1
End If
If Not Application.Intersect(Target, Range("i4")) Is Nothing Then
Range("i4").Value = Range("i4").Value + 1
End If
If Not Application.Intersect(Target, Range("j4")) Is Nothing Then
Range("j4").Value = Range("j4").Value + 1
End If
If Not Application.Intersect(Target, Range("k4")) Is Nothing Then
Range("k4").Value = Range("k4").Value + 1
End If
If Not Application.Intersect(Target, Range("l4")) Is Nothing Then
Range("l4").Value = Range("l4").Value + 1
End If
If Not Application.Intersect(Target, Range("m4")) Is Nothing Then
Range("m4").Value = Range("m4").Value + 1
End If
If Not Application.Intersect(Target, Range("n4")) Is Nothing Then
Range("n4").Value = Range("n4").Value + 1
End If
If Not Application.Intersect(Target, Range("o4")) Is Nothing Then
Range("o4").Value = Range("o4").Value + 1
End If
If Not Application.Intersect(Target, Range("p4")) Is Nothing Then
Range("p4").Value = Range("p4").Value + 1
End If
If Not Application.Intersect(Target, Range("q4")) Is Nothing Then
Range("q4").Value = Range("q4").Value + 1
End If

Désolé!

Roland_M · 19 Novembre 2015

Re : Procédure trop grande

re

aucune importance !
puisque c'est toujours de B à Q
il n'y a que le No de ligne qui change !

'Q1 FTP
For I = 66 To 81: R$ = Chr(I) & "4" '<<<<<<<<<<<<<<<<< ici !!!!!
If Not Application.Intersect(Target, Range(R$)) Is Nothing Then Range(R$).Value = Range(R$).Value + 1
Next
'Q2 FTP
For I = 66 To 81: R$ = Chr(I) & "5"
If Not Application.Intersect(Target, Range(R$)) Is Nothing Then Range(R$).Value = Range(R$).Value + 1
Next

' . . .

ou comme JCGL avec le bon no de ligne 4 puis 5 ...
'Q1 FTP
Dim Col&
For Col = 2 To 17 '<<<<< ici col de B à Q
If Not Application.Intersect(Target, Cells(4, Col)) Is Nothing Then Cells(4, Col) = Cells(4, Col) + 1
Next Col
'Q2 FTP
For Col = 2 To 17
If Not Application.Intersect(Target, Cells(5, Col)) Is Nothing Then Cells(5, Col).Value = Cells(5, Col) + 1
Next Col

EDIT : on pourrait tout imbriquer avec deux boucles Lig et Col
si toutefois les lignes se suivent bien en continue de 4 à 72 !?
For Lig = 4 to 72: For Col = 2 To 17 '<<<<< ici col de B à Q
If Not Application.Intersect(Target, Cells(Lig, Col)) Is Nothing Then Cells(Lig, Col) = Cells(Lig, Col) + 1
Next Col: Next Lig

soit 3 ou 4 lignes au lieu des 2804 soit 2800 lignes de trop !

voir une fois la réponse ok, placer un exit for pour les deux boucles ou simplement Exit Sub puisqu'il n'y a plus de code après !

For Lig = 4 to 72: For Col = 2 To 17 '<<<<< ici col 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

job75 · 19 Novembre 2015

Re : Procédure trop grande

Bonsoir,

Le code du post #1 fait 2804 lignes, record précédent largement battu

domeli · 19 Novembre 2015

Re : Procédure trop grande

J'espère t'avoir donné le sourire Job75.

Désolé encore! Quand on est pas bon, on est pas bon! LOL

Bon, j'ai commencé à testé le code de JCGL jusqu'à la Q4 et ça a l'air de fonctionner nickel.
Je vais quand même tester Roland pour voir mais merci à vous deux.
Je reviens si ça va pas.

Roland_M · 19 Novembre 2015

Re : Procédure trop grande

re

essaies ceci en remplacement de tout ton code ! (base JCGL)
si toutefois les lignes se suivent bien en continue de 4 à 72 !?

Code:

For Lig = 4 to 72 ' à toi de voir le nombre de lignes !?
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

domeli · 19 Novembre 2015

Re : Procédure trop grande

Bon d'abord merci JCGL le premier code fonctionne impec.

Pour le 2ème, le souci est qu'il y a 2 fois les questions:
1 fois pour FTP (fonction publique) et une autre pour les PRIVES.
J'ai donc un décalage d'une ligne dans mon tableau entre les FTP et PRIVE

Q1 à Q4 --> FTP
Q1 à Q4 --> PRIVE
Q5 à Q7 --> FTP
Q5 à Q7 --> PRIVE
Q8 à Q13, etc...
Sinon ça réduisait encore, ça avait l'air bien.

Mais bon je me contente de ça, ce qui est bien mieux qu'au départ.

Grand merci

Roland_M · 19 Novembre 2015

Re : Procédure trop grande

re

as-tu vu ma proposition ?
quel est le problème ?

domeli · 19 Novembre 2015

Re : Procédure trop grande

sauf si je peux faire un truc du genre:
For Lig = 4 to 7
For Lig = 9 to 12
For Lig = 14 to 16
'etc...
'puis la suite
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

Mais le Next Lig ne va pas poser problème?

domeli · 19 Novembre 2015

Re : Procédure trop grande

Ah! C'est Roland Pardon! J'ai pas fais gaffe.

domeli · 19 Novembre 2015

Re : Procédure trop grande

La réponse est aussi pour toi alors.

Roland_M · 19 Novembre 2015

Re : Procédure trop grande

re

pas comme ça c'est pas possible !
de la lig 4 à 7 ... mais jusque combien ainsi ?

Effectuez une recherche sur Excel Downloads...

Procédure trop grande

domeli

XLDnaute Junior

Roland_M

XLDnaute Barbatruc

domeli

XLDnaute Junior

JCGL

XLDnaute Barbatruc

domeli

XLDnaute Junior

Roland_M

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

domeli

XLDnaute Junior

Roland_M

XLDnaute Barbatruc

domeli

XLDnaute Junior

Roland_M

XLDnaute Barbatruc

domeli

XLDnaute Junior

domeli

XLDnaute Junior

domeli

XLDnaute Junior

Roland_M

XLDnaute Barbatruc

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums