Macro répétitive à simplifier

[Bob]

Bonjour,
Comment simplifier cette macro svp ?

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


------------------------------
Merci beaucoup pour votre aide
Bob

 

[Gibson94]

Bonjour Bob, le forum

Cette question a déjà été posée avant-hier et des réponses ont été données.

Voici le lien

Lien supprimé

Bon Dimanche.

 

[Temjeh]

Dommage même en changeant de nom on t'a reconnus!!!

Bizzarrrrrrre

Temjeh