Voici le code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range('C2')) Is Nothing Then
Range('C2') = 3
Range('C3') = Empty
Range('F3') = Range('B2')
ElseIf Not Intersect(Target, Range('C3')) Is Nothing Then
Range('C3') = 3
Range('C2') = Empty
Range('F3') = Range('B3')
End If
If Not Intersect(Target, Range('C4')) Is Nothing Then
Range('C4') = 3
Range('C5') = Empty
Range('F4') = Range('B4')
ElseIf Not Intersect(Target, Range('C5')) Is Nothing Then
Range('C5') = 3
Range('C4') = Empty
Range('F4') = Range('B5')
End If
If Not Intersect(Target, Range('C6')) Is Nothing Then
Range('C6') = 3
Range('C7') = Empty
Range('F7') = Range('B6')
ElseIf Not Intersect(Target, Range('C7')) Is Nothing Then
Range('C7') = 3
Range('C6') = Empty
Range('F7') = Range('B7')
End If
If Not Intersect(Target, Range('C8')) Is Nothing Then
Range('C8') = 3
Range('C9') = Empty
Range('F8') = Range('B8')
ElseIf Not Intersect(Target, Range('C9')) Is Nothing Then
Range('C9') = 3
Range('C8') = Empty
Range('F8') = Range('B9')
End If
If Not Intersect(Target, Range('C10')) Is Nothing Then
Range('C10') = 3
Range('C11') = Empty
Range('F11') = Range('B10')
ElseIf Not Intersect(Target, Range('C11')) Is Nothing Then
Range('C11') = 3
Range('C10') = Empty
Range('F11') = Range('B11')
End If
If Not Intersect(Target, Range('C12')) Is Nothing Then
Range('C12') = 3
Range('C13') = Empty
Range('F12') = Range('B12')
ElseIf Not Intersect(Target, Range('C13')) Is Nothing Then
Range('C13') = 3
Range('C12') = Empty
Range('F12') = Range('B13')
End If
If Not Intersect(Target, Range('C14')) Is Nothing Then
Range('C14') = 3
Range('C15') = Empty
Range('F15') = Range('B14')
ElseIf Not Intersect(Target, Range('C15')) Is Nothing Then
Range('C15') = 3
Range('C14') = Empty
Range('F15') = Range('B15')
End If
If Not Intersect(Target, Range('C16')) Is Nothing Then
Range('C16') = 3
Range('C17') = Empty
Range('F16') = Range('B16')
ElseIf Not Intersect(Target, Range('C17')) Is Nothing Then
Range('C17') = 3
Range('C16') = Empty
Range('F16') = Range('B17')
End If
If Not Intersect(Target, Range('C18')) Is Nothing Then
Range('C18') = 3
Range('C19') = Empty
Range('F19') = Range('B18')
ElseIf Not Intersect(Target, Range('C19')) Is Nothing Then
Range('C19') = 3
Range('C18') = Empty
Range('F19') = Range('B19')
End If
If Not Intersect(Target, Range('C20')) Is Nothing Then
Range('C20') = 3
Range('C21') = Empty
Range('F20') = Range('B20')
ElseIf Not Intersect(Target, Range('C21')) Is Nothing Then
Range('C21') = 3
Range('C20') = Empty
Range('F20') = Range('B21')
End If
If Not Intersect(Target, Range('C22')) Is Nothing Then
Range('C22') = 3
Range('C23') = Empty
Range('F23') = Range('B22')
ElseIf Not Intersect(Target, Range('C23')) Is Nothing Then
Range('C23') = 3
Range('C22') = Empty
Range('F23') = Range('B23')
End If
If Not Intersect(Target, Range('C24')) Is Nothing Then
Range('C24') = 3
Range('C25') = Empty
Range('F24') = Range('B24')
ElseIf Not Intersect(Target, Range('C25')) Is Nothing Then
Range('C25') = 3
Range('C24') = Empty
Range('F24') = Range('B25')
End If
If Not Intersect(Target, Range('C26')) Is Nothing Then
Range('C26') = 3
Range('C27') = Empty
Range('F27') = Range('B26')
ElseIf Not Intersect(Target, Range('C27')) Is Nothing Then
Range('C27') = 3
Range('C26') = Empty
Range('F27') = Range('B27')
End If
If Not Intersect(Target, Range('C28')) Is Nothing Then
Range('C28') = 3
Range('C29') = Empty
Range('F28') = Range('B28')
ElseIf Not Intersect(Target, Range('C29')) Is Nothing Then
Range('C29') = 3
Range('C28') = Empty
Range('F28') = Range('B29')
End If
If Not Intersect(Target, Range('C30')) Is Nothing Then
Range('C30') = 3
Range('C31') = Empty
Range('F31') = Range('B30')
ElseIf Not Intersect(Target, Range('C31')) Is Nothing Then
Range('C31') = 3
Range('C30') = Empty
Range('F31') = Range('B31')
End If
If Not Intersect(Target, Range('C32')) Is Nothing Then
Range('C32') = 3
Range('C33') = Empty
Range('F32') = Range('B32')
ElseIf Not Intersect(Target, Range('C33')) Is Nothing Then
Range('C33') = 3
Range('C32') = Empty
Range('F32') = Range('B33')
End If
If Not Intersect(Target, Range('C41')) Is Nothing Then
Range('C41') = 3
Range('C42') = Empty
Range('F42') = Range('B41')
ElseIf Not Intersect(Target, Range('C42')) Is Nothing Then
Range('C42') = 3
Range('C41') = Empty
Range('F42') = Range('B42')
End If
If Not Intersect(Target, Range('C43')) Is Nothing Then
Range('C43') = 3
Range('C44') = Empty
Range('F43') = Range('B43')
ElseIf Not Intersect(Target, Range('C44')) Is Nothing Then
Range('C44') = 3
Range('C43') = Empty
Range('F43') = Range('B44')
End If
If Not Intersect(Target, Range('C45')) Is Nothing Then
Range('C45') = 3
Range('C46') = Empty
Range('F46') = Range('B45')
ElseIf Not Intersect(Target, Range('C46')) Is Nothing Then
Range('C46') = 3
Range('C45') = Empty
Range('F46') = Range('B46')
End If
If Not Intersect(Target, Range('C47')) Is Nothing Then
Range('C47') = 3
Range('C48') = Empty
Range('F47') = Range('B47')
ElseIf Not Intersect(Target, Range('C48')) Is Nothing Then
Range('C48') = 3
Range('C47') = Empty
Range('F47') = Range('B48')
End If
If Not Intersect(Target, Range('C49')) Is Nothing Then
Range('C49') = 3
Range('C50') = Empty
Range('F50') = Range('B49')
ElseIf Not Intersect(Target, Range('C50')) Is Nothing Then
Range('C50') = 3
Range('C49') = Empty
Range('F50') = Range('B50')
End If
If Not Intersect(Target, Range('C51')) Is Nothing Then
Range('C51') = 3
Range('C52') = Empty
Range('F51') = Range('B51')
ElseIf Not Intersect(Target, Range('C52')) Is Nothing Then
Range('C52') = 3
Range('C51') = Empty
Range('F51') = Range('B52')
End If
If Not Intersect(Target, Range('C53')) Is Nothing Then
Range('C53') = 3
Range('C54') = Empty
Range('F54') = Range('B53')
ElseIf Not Intersect(Target, Range('C54')) Is Nothing Then
Range('C54') = 3
Range('C53') = Empty
Range('F54') = Range('B54')
End If
If Not Intersect(Target, Range('C55')) Is Nothing Then
Range('C55') = 3
Range('C56') = Empty
Range('F55') = Range('B55')
ElseIf Not Intersect(Target, Range('C56')) Is Nothing Then
Range('C56') = 3
Range('C55') = Empty
Range('F55') = Range('B56')
End If
If Not Intersect(Target, Range('C57')) Is Nothing Then
Range('C57') = 3
Range('C58') = Empty
Range('F58') = Range('B57')
ElseIf Not Intersect(Target, Range('C58')) Is Nothing Then
Range('C58') = 3
Range('C57') = Empty
Range('F58') = Range('B58')
End If
If Not Intersect(Target, Range('C59')) Is Nothing Then
Range('C59') = 3
Range('C60') = Empty
Range('F59') = Range('B59')
ElseIf Not Intersect(Target, Range('C60')) Is Nothing Then
Range('C60') = 3
Range('C59') = Empty
Range('F59') = Range('B60')
End If
If Not Intersect(Target, Range('C61')) Is Nothing Then
Range('C61') = 3
Range('C62') = Empty
Range('F62') = Range('B61')
ElseIf Not Intersect(Target, Range('C62')) Is Nothing Then
Range('C62') = 3
Range('C61') = Empty
Range('F62') = Range('B62')
End If
If Not Intersect(Target, Range('C63')) Is Nothing Then
Range('C63') = 3
Range('C64') = Empty
Range('F63') = Range('B63')
ElseIf Not Intersect(Target, Range('C64')) Is Nothing Then
Range('C64') = 3
Range('C63') = Empty
Range('F63') = Range('B64')
End If
If Not Intersect(Target, Range('C65')) Is Nothing Then
Range('C65') = 3
Range('C66') = Empty
Range('F66') = Range('B65')
ElseIf Not Intersect(Target, Range('C66')) Is Nothing Then
Range('C66') = 3
Range('C65') = Empty
Range('F66') = Range('B66')
End If
If Not Intersect(Target, Range('C67')) Is Nothing Then
Range('C67') = 3
Range('C68') = Empty
Range('F67') = Range('B67')
ElseIf Not Intersect(Target, Range('C68')) Is Nothing Then
Range('C68') = 3
Range('C67') = Empty
Range('F67') = Range('B68')
End If
If Not Intersect(Target, Range('C69')) Is Nothing Then
Range('C69') = 3
Range('C70') = Empty
Range('F70') = Range('B69')
ElseIf Not Intersect(Target, Range('C70')) Is Nothing Then
Range('C70') = 3
Range('C69') = Empty
Range('F70') = Range('B70')
End If
If Not Intersect(Target, Range('C71')) Is Nothing Then
Range('C71') = 3
Range('C72') = Empty
Range('F71') = Range('B71')
ElseIf Not Intersect(Target, Range('C72')) Is Nothing Then
Range('C72') = 3
Range('C71') = Empty
Range('F71') = Range('B72')
End If
If Not Intersect(Target, Range('C80')) Is Nothing Then
Range('C80') = 3
Range('C81') = Empty
Range('F81') = Range('B80')
ElseIf Not Intersect(Target, Range('C81')) Is Nothing Then
Range('C81') = 3
Range('C80') = Empty
Range('F81') = Range('B81')
End If
If Not Intersect(Target, Range('C82')) Is Nothing Then
Range('C82') = 3
Range('C83') = Empty
Range('F82') = Range('B82')
ElseIf Not Intersect(Target, Range('C83')) Is Nothing Then
Range('C83') = 3
Range('C82') = Empty
Range('F82') = Range('B83')
End If
If Not Intersect(Target, Range('C84')) Is Nothing Then
Range('C84') = 3
Range('C85') = Empty
Range('F85') = Range('B84')
ElseIf Not Intersect(Target, Range('C85')) Is Nothing Then
Range('C85') = 3
Range('C84') = Empty
Range('F85') = Range('B85')
End If
If Not Intersect(Target, Range('C86')) Is Nothing Then
Range('C86') = 3
Range('C87') = Empty
Range('F86') = Range('B86')
ElseIf Not Intersect(Target, Range('C87')) Is Nothing Then
Range('C87') = 3
Range('C86') = Empty
Range('F86') = Range('B87')
End If
If Not Intersect(Target, Range('C88')) Is Nothing Then
Range('C88') = 3
Range('C89') = Empty
Range('F89') = Range('B88')
ElseIf Not Intersect(Target, Range('C89')) Is Nothing Then
Range('C89') = 3
Range('C88') = Empty
Range('F89') = Range('B89')
End If
If Not Intersect(Target, Range('C90')) Is Nothing Then
Range('C90') = 3
Range('C91') = Empty
Range('F90') = Range('B90')
ElseIf Not Intersect(Target, Range('C91')) Is Nothing Then
Range('C91') = 3
Range('C90') = Empty
Range('F90') = Range('B91')
End If
If Not Intersect(Target, Range('C92')) Is Nothing Then
Range('C92') = 3
Range('C93') = Empty
Range('F93') = Range('B92')
ElseIf Not Intersect(Target, Range('C93')) Is Nothing Then
Range('C93') = 3
Range('C92') = Empty
Range('F93') = Range('B93')
End If
If Not Intersect(Target, Range('C94')) Is Nothing Then
Range('C94') = 3
Range('C95') = Empty
Range('F94') = Range('B94')
ElseIf Not Intersect(Target, Range('C95')) Is Nothing Then
Range('C95') = 3
Range('C94') = Empty
Range('F94') = Range('B95')
End If
If Not Intersect(Target, Range('C96')) Is Nothing Then
Range('C96') = 3
Range('C97') = Empty
Range('F97') = Range('B96')
ElseIf Not Intersect(Target, Range('C97')) Is Nothing Then
Range('C97') = 3
Range('C96') = Empty
Range('F97') = Range('B97')
End If
If Not Intersect(Target, Range('C98')) Is Nothing Then
Range('C98') = 3
Range('C99') = Empty
Range('F98') = Range('B98')
ElseIf Not Intersect(Target, Range('C99')) Is Nothing Then
Range('C99') = 3
Range('C98') = Empty
Range('F98') = Range('B99')
End If
If Not Intersect(Target, Range('C100')) Is Nothing Then
Range('C100') = 3
Range('C101') = Empty
Range('F101') = Range('B100')
ElseIf Not Intersect(Target, Range('C101')) Is Nothing Then
Range('C101') = 3
Range('C100') = Empty
Range('F101') = Range('B101')
End If
If Not Intersect(Target, Range('C102')) Is Nothing Then
Range('C102') = 3
Range('C103') = Empty
Range('F102') = Range('B102')
ElseIf Not Intersect(Target, Range('C103')) Is Nothing Then
Range('C103') = 3
Range('C102') = Empty
Range('F102') = Range('B103')
End If
If Not Intersect(Target, Range('C104')) Is Nothing Then
Range('C104') = 3
Range('C105') = Empty
Range('F105') = Range('B104')
ElseIf Not Intersect(Target, Range('C105')) Is Nothing Then
Range('C105') = 3
Range('C104') = Empty
Range('F105') = Range('B105')
End If
If Not Intersect(Target, Range('C106')) Is Nothing Then
Range('C106') = 3
Range('C107') = Empty
Range('F106') = Range('B106')
ElseIf Not Intersect(Target, Range('C107')) Is Nothing Then
Range('C107') = 3
Range('C106') = Empty
Range('F106') = Range('B107')
End If
If Not Intersect(Target, Range('C108')) Is Nothing Then
Range('C108') = 3
Range('C109') = Empty
Range('F109') = Range('B108')
ElseIf Not Intersect(Target, Range('C109')) Is Nothing Then
Range('C109') = 3
Range('C108') = Empty
Range('F109') = Range('B109')
End If
If Not Intersect(Target, Range('C110')) Is Nothing Then
Range('C110') = 3
Range('C111') = Empty
Range('F110') = Range('B110')
ElseIf Not Intersect(Target, Range('C111')) Is Nothing Then
Range('C111') = 3
Range('C110') = Empty
Range('F110') = Range('B111')
End If
If Not Intersect(Target, Range('C119')) Is Nothing Then
Range('C119') = 3
Range('C120') = Empty
Range('F120') = Range('B119')
ElseIf Not Intersect(Target, Range('C120')) Is Nothing Then
Range('C120') = 3
Range('C119') = Empty
Range('F120') = Range('B120')
End If
If Not Intersect(Target, Range('C121')) Is Nothing Then
Range('C121') = 3
Range('C122') = Empty
Range('F121') = Range('B121')
ElseIf Not Intersect(Target, Range('C122')) Is Nothing Then
Range('C122') = 3
Range('C121') = Empty
Range('F121') = Range('B122')
End If
If Not Intersect(Target, Range('C123')) Is Nothing Then
Range('C123') = 3
Range('C124') = Empty
Range('F124') = Range('B123')
ElseIf Not Intersect(Target, Range('C124')) Is Nothing Then
Range('C124') = 3
Range('C123') = Empty
Range('F124') = Range('B124')
End If
If Not Intersect(Target, Range('C125')) Is Nothing Then
Range('C125') = 3
Range('C126') = Empty
Range('F125') = Range('B125')
ElseIf Not Intersect(Target, Range('C126')) Is Nothing Then
Range('C126') = 3
Range('C125') = Empty
Range('F125') = Range('B126')
End If
If Not Intersect(Target, Range('C127')) Is Nothing Then
Range('C127') = 3
Range('C128') = Empty
Range('F128') = Range('B127')
ElseIf Not Intersect(Target, Range('C128')) Is Nothing Then
Range('C128') = 3
Range('C127') = Empty
Range('F128') = Range('B128')
End If
If Not Intersect(Target, Range('C129')) Is Nothing Then
Range('C129') = 3
Range('C130') = Empty
Range('F129') = Range('B129')
ElseIf Not Intersect(Target, Range('C130')) Is Nothing Then
Range('C130') = 3
Range('C129') = Empty
Range('F129') = Range('B130')
End If
If Not Intersect(Target, Range('C131')) Is Nothing Then
Range('C131') = 3
Range('C132') = Empty
Range('F132') = Range('B131')
ElseIf Not Intersect(Target, Range('C132')) Is Nothing Then
Range('C132') = 3
Range('C131') = Empty
Range('F132') = Range('B132')
End If
If Not Intersect(Target, Range('C133')) Is Nothing Then
Range('C133') = 3
Range('C134') = Empty
Range('F133') = Range('B133')
ElseIf Not Intersect(Target, Range('C134')) Is Nothing Then
Range('C134') = 3
Range('C133') = Empty
Range('F133') = Range('B134')
End If
If Not Intersect(Target, Range('C135')) Is Nothing Then
Range('C135') = 3
Range('C136') = Empty
Range('F136') = Range('B135')
ElseIf Not Intersect(Target, Range('C136')) Is Nothing Then
Range('C136') = 3
Range('C135') = Empty
Range('F136') = Range('B136')
End If
If Not Intersect(Target, Range('C137')) Is Nothing Then
Range('C137') = 3
Range('C138') = Empty
Range('F137') = Range('B137')
ElseIf Not Intersect(Target, Range('C138')) Is Nothing Then
Range('C138') = 3
Range('C137') = Empty
Range('F137') = Range('B138')
End If
If Not Intersect(Target, Range('C139')) Is Nothing Then
Range('C139') = 3
Range('C140') = Empty
Range('F140') = Range('B139')
ElseIf Not Intersect(Target, Range('C140')) Is Nothing Then
Range('C140') = 3
Range('C139') = Empty
Range('F140') = Range('B140')
End If
If Not Intersect(Target, Range('C141')) Is Nothing Then
Range('C141') = 3
Range('C142') = Empty
Range('F141') = Range('B141')
ElseIf Not Intersect(Target, Range('C142')) Is Nothing Then
Range('C142') = 3
Range('C141') = Empty
Range('F141') = Range('B142')
End If
If Not Intersect(Target, Range('C143')) Is Nothing Then
Range('C143') = 3
Range('C144') = Empty
Range('F144') = Range('B143')
ElseIf Not Intersect(Target, Range('C144')) Is Nothing Then
Range('C144') = 3
Range('C143') = Empty
Range('F144') = Range('B144')
End If
If Not Intersect(Target, Range('C145')) Is Nothing Then
Range('C145') = 3
Range('C146') = Empty
Range('F145') = Range('B145')
ElseIf Not Intersect(Target, Range('C146')) Is Nothing Then
Range('C146') = 3
Range('C145') = Empty
Range('F145') = Range('B146')
End If
If Not Intersect(Target, Range('C147')) Is Nothing Then
Range('C147') = 3
Range('C148') = Empty
Range('F148') = Range('B147')
ElseIf Not Intersect(Target, Range('C148')) Is Nothing Then
Range('C148') = 3
Range('C147') = Empty
Range('F148') = Range('B148')
End If
If Not Intersect(Target, Range('C149')) Is Nothing Then
Range('C149') = 3
Range('C150') = Empty
Range('F149') = Range('B149')
ElseIf Not Intersect(Target, Range('C150')) Is Nothing Then
Range('C150') = 3
Range('C149') = Empty
Range('F149') = Range('B150')
End If
If Not Intersect(Target, Range('G3')) Is Nothing Then
Range('G3') = 3
Range('G4') = Empty
Range('J4') = Range('F3')
ElseIf Not Intersect(Target, Range('G4')) Is Nothing Then
Range('G4') = 3
Range('G3') = Empty
Range('J4') = Range('F4')
End If
If Not Intersect(Target, Range('G7')) Is Nothing Then
Range('G7') = 3
Range('G8') = Empty
Range('J6') = Range('F7')
ElseIf Not Intersect(Target, Range('G8')) Is Nothing Then
Range('G8') = 3
Range('G7') = Empty
Range('J6') = Range('F8')
End If
If Not Intersect(Target, Range('G11')) Is Nothing Then
Range('G11') = 3
Range('G12') = Empty
Range('J12') = Range('F11')
ElseIf Not Intersect(Target, Range('G12')) Is Nothing Then
Range('G12') = 3
Range('G11') = Empty
Range('J12') = Range('F12')
End If
If Not Intersect(Target, Range('G15')) Is Nothing Then
Range('G15') = 3
Range('G16') = Empty
Range('J14') = Range('F15')
ElseIf Not Intersect(Target, Range('G16')) Is Nothing Then
Range('G16') = 3
Range('G15') = Empty
Range('J14') = Range('F16')
End If
If Not Intersect(Target, Range('G19')) Is Nothing Then
Range('G19') = 3
Range('G20') = Empty
Range('J20') = Range('F19')
ElseIf Not Intersect(Target, Range('G20')) Is Nothing Then
Range('G20') = 3
Range('G19') = Empty
Range('J20') = Range('F20')
End If
If Not Intersect(Target, Range('G23')) Is Nothing Then
Range('G23') = 3
Range('G24') = Empty
Range('J22') = Range('F23')
ElseIf Not Intersect(Target, Range('G24')) Is Nothing Then
Range('G24') = 3
Range('G23') = Empty
Range('J22') = Range('F24')
End If
If Not Intersect(Target, Range('G27')) Is Nothing Then
Range('G27') = 3
Range('G28') = Empty
Range('J28') = Range('F27')
ElseIf Not Intersect(Target, Range('G28')) Is Nothing Then
Range('G28') = 3
Range('G27') = Empty
Range('J28') = Range('F28')
End If
If Not Intersect(Target, Range('G31')) Is Nothing Then
Range('G31') = 3
Range('G32') = Empty
Range('J30') = Range('F31')
ElseIf Not Intersect(Target, Range('G32')) Is Nothing Then
Range('G32') = 3
Range('G31') = Empty
Range('J30') = Range('F32')
End If
If Not Intersect(Target, Range('G42')) Is Nothing Then
Range('G42') = 3
Range('G43') = Empty
Range('J43') = Range('F42')
ElseIf Not Intersect(Target, Range('G43')) Is Nothing Then
Range('G43') = 3
Range('G42') = Empty
Range('J43') = Range('F43')
End If
If Not Intersect(Target, Range('G46')) Is Nothing Then
Range('G46') = 3
Range('G47') = Empty
Range('J45') = Range('F46')
ElseIf Not Intersect(Target, Range('G47')) Is Nothing Then
Range('G47') = 3
Range('G46') = Empty
Range('J45') = Range('F47')
End If
If Not Intersect(Target, Range('G50')) Is Nothing Then
Range('G50') = 3
Range('G51') = Empty
Range('J51') = Range('F50')
ElseIf Not Intersect(Target, Range('G51')) Is Nothing Then
Range('G51') = 3
Range('G50') = Empty
Range('J51') = Range('F51')
End If
If Not Intersect(Target, Range('G54')) Is Nothing Then
Range('G54') = 3
Range('G55') = Empty
Range('J53') = Range('F54')
ElseIf Not Intersect(Target, Range('G55')) Is Nothing Then
Range('G55') = 3
Range('G54') = Empty
Range('J53') = Range('F55')
End If
If Not Intersect(Target, Range('G58')) Is Nothing Then
Range('G58') = 3
Range('G59') = Empty
Range('J59') = Range('F58')
ElseIf Not Intersect(Target, Range('G59')) Is Nothing Then
Range('G59') = 3
Range('G58') = Empty
Range('J59') = Range('F59')
End If
If Not Intersect(Target, Range('G62')) Is Nothing Then
Range('G62') = 3
Range('G63') = Empty
Range('J61') = Range('F62')
ElseIf Not Intersect(Target, Range('G63')) Is Nothing Then
Range('G63') = 3
Range('G62') = Empty
Range('J61') = Range('F63')
End If
If Not Intersect(Target, Range('G66')) Is Nothing Then
Range('G66') = 3
Range('G67') = Empty
Range('J67') = Range('F66')
ElseIf Not Intersect(Target, Range('G67')) Is Nothing Then
Range('G67') = 3
Range('G66') = Empty
Range('J67') = Range('F67')
End If
If Not Intersect(Target, Range('G70')) Is Nothing Then
Range('G70') = 3
Range('G71') = Empty
Range('J69') = Range('F70')
ElseIf Not Intersect(Target, Range('G71')) Is Nothing Then
Range('G71') = 3
Range('G70') = Empty
Range('J69') = Range('F71')
End If
If Not Intersect(Target, Range('G81')) Is Nothing Then
Range('G81') = 3
Range('G82') = Empty
Range('J82') = Range('F81')
ElseIf Not Intersect(Target, Range('G82')) Is Nothing Then
Range('G82') = 3
Range('G81') = Empty
Range('J82') = Range('F82')
End If
If Not Intersect(Target, Range('G85')) Is Nothing Then
Range('G85') = 3
Range('G86') = Empty
Range('J84') = Range('F85')
ElseIf Not Intersect(Target, Range('G86')) Is Nothing Then
Range('G86') = 3
Range('G85') = Empty
Range('J84') = Range('F86')
End If
If Not Intersect(Target, Range('G89')) Is Nothing Then
Range('G89') = 3
Range('G90') = Empty
Range('J90') = Range('F89')
ElseIf Not Intersect(Target, Range('G90')) Is Nothing Then
Range('G90') = 3
Range('G893') = Empty
Range('J90') = Range('F90')
End If
If Not Intersect(Target, Range('G93')) Is Nothing Then
Range('G93') = 3
Range('G94') = Empty
Range('J92') = Range('F93')
ElseIf Not Intersect(Target, Range('G94')) Is Nothing Then
Range('G94') = 3
Range('G93') = Empty
Range('J92') = Range('F94')
End If
If Not Intersect(Target, Range('G97')) Is Nothing Then
Range('G97') = 3
Range('G98') = Empty
Range('J98') = Range('F97')
ElseIf Not Intersect(Target, Range('G98')) Is Nothing Then
Range('G98') = 3
Range('G97') = Empty
Range('J98') = Range('F98')
End If
If Not Intersect(Target, Range('G101')) Is Nothing Then
Range('G101') = 3
Range('G102') = Empty
Range('J100') = Range('F101')
ElseIf Not Intersect(Target, Range('G102')) Is Nothing Then
Range('G102') = 3
Range('G101') = Empty
Range('J100') = Range('F102')
End If
If Not Intersect(Target, Range('G105')) Is Nothing Then
Range('G105') = 3
Range('G106') = Empty
Range('J106') = Range('F105')
ElseIf Not Intersect(Target, Range('G106')) Is Nothing Then
Range('G106') = 3
Range('G105') = Empty
Range('J106') = Range('F106')
End If
If Not Intersect(Target, Range('G109')) Is Nothing Then
Range('G109') = 3
Range('G110') = Empty
Range('J108') = Range('F109')
ElseIf Not Intersect(Target, Range('G110')) Is Nothing Then
Range('G110') = 3
Range('G109') = Empty
Range('J108') = Range('F110')
End If
If Not Intersect(Target, Range('G120')) Is Nothing Then
Range('G120') = 3
Range('G121') = Empty
Range('J121') = Range('F120')
ElseIf Not Intersect(Target, Range('G121')) Is Nothing Then
Range('G121') = 3
Range('G120') = Empty
Range('J121') = Range('F121')
End If
If Not Intersect(Target, Range('G124')) Is Nothing Then
Range('G124') = 3
Range('G125') = Empty
Range('J123') = Range('F124')
ElseIf Not Intersect(Target, Range('G125')) Is Nothing Then
Range('G125') = 3
Range('G124') = Empty
Range('J123') = Range('F125')
End If
If Not Intersect(Target, Range('G128')) Is Nothing Then
Range('G128') = 3
Range('G129') = Empty
Range('J129') = Range('F128')
ElseIf Not Intersect(Target, Range('G129')) Is Nothing Then
Range('G129') = 3
Range('G128') = Empty
Range('J129') = Range('F129')
End If
If Not Intersect(Target, Range('G132')) Is Nothing Then
Range('G132') = 3
Range('G133') = Empty
Range('J131') = Range('F132')
ElseIf Not Intersect(Target, Range('G133')) Is Nothing Then
Range('G133') = 3
Range('G132') = Empty
Range('J131') = Range('F133')
End If
If Not Intersect(Target, Range('G136')) Is Nothing Then
Range('G136') = 3
Range('G137') = Empty
Range('J137') = Range('F136')
ElseIf Not Intersect(Target, Range('G137')) Is Nothing Then
Range('G137') = 3
Range('G136') = Empty
Range('J137') = Range('F137')
End If
If Not Intersect(Target, Range('G140')) Is Nothing Then
Range('G140') = 3
Range('G141') = Empty
Range('J139') = Range('F140')
ElseIf Not Intersect(Target, Range('G141')) Is Nothing Then
Range('G141') = 3
Range('G140') = Empty
Range('J139') = Range('F141')
End If
If Not Intersect(Target, Range('G144')) Is Nothing Then
Range('G144') = 3
Range('G145') = Empty
Range('J145') = Range('F144')
ElseIf Not Intersect(Target, Range('G145')) Is Nothing Then
Range('G145') = 3
Range('G144') = Empty
Range('J145') = Range('F145')
End If
If Not Intersect(Target, Range('G148')) Is Nothing Then
Range('G148') = 3
Range('G149') = Empty
Range('J147') = Range('F148')
ElseIf Not Intersect(Target, Range('G149')) Is Nothing Then
Range('G149') = 3
Range('G148') = Empty
Range('J147') = Range('F149')
End If
If Not Intersect(Target, Range('K4')) Is Nothing Then
Range('K4') = 3
Range('K6') = Empty
Range('N8') = Range('J4')
Range('B158') = Range('J4')
ElseIf Not Intersect(Target, Range('K6')) Is Nothing Then
Range('K6') = 3
Range('K4') = Empty
Range('N8') = Range('J6')
Range('B158') = Range('J6')
End If
If Not Intersect(Target, Range('K12')) Is Nothing Then
Range('K12') = 3
Range('K14') = Empty
Range('N10') = Range('J12')
Range('B159') = Range('J12')
ElseIf Not Intersect(Target, Range('K14')) Is Nothing Then
Range('K14') = 3
Range('K12') = Empty
Range('N10') = Range('J14')
Range('B159') = Range('J14')
End If
If Not Intersect(Target, Range('K20')) Is Nothing Then
Range('K20') = 3
Range('K22') = Empty
Range('N24') = Range('J20')
Range('B162') = Range('J20')
ElseIf Not Intersect(Target, Range('K22')) Is Nothing Then
Range('K22') = 3
Range('K20') = Empty
Range('N24') = Range('J22')
Range('B162') = Range('J22')
End If
If Not Intersect(Target, Range('K28')) Is Nothing Then
Range('K28') = 3
Range('K30') = Empty
Range('N26') = Range('J28')
Range('B163') = Range('J28')
ElseIf Not Intersect(Target, Range('K30')) Is Nothing Then
Range('K30') = 3
Range('K28') = Empty
Range('N26') = Range('J30')
Range('B163') = Range('J30')
End If
If Not Intersect(Target, Range('K43')) Is Nothing Then
Range('K43') = 3
Range('K45') = Empty
Range('N47') = Range('J59')
Range('B166') = Range('J59')
ElseIf Not Intersect(Target, Range('K45')) Is Nothing Then
Range('K45') = 3
Range('K43') = Empty
Range('N47') = Range('J61')
Range('B166') = Range('J61')
End If
If Not Intersect(Target, Range('K12')) Is Nothing Then
Range('K12') = 3
Range('K14') = Empty
Range('N49') = Range('J12')
Range('B167') = Range('J12')
ElseIf Not Intersect(Target, Range('K14')) Is Nothing Then
Range('K14') = 3
Range('K12') = Empty
Range('N49') = Range('J14')
Range('B167') = Range('J14')
End If
End Sub