Double clic

Bonjour,

Je n'arrive pas modifier cette macro pour que en double clic sur la cellule R10 et pas les autres, il fasse exactement la même chose que les autres, mai en plus il me vide la cellule K10.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("AG29,G4:G8,K3:K6,K8:K9,R10,E12:E29,E57:E73")) Is Nothing Then Exit Sub
On Error Resume Next
If IsEmpty(ActiveCell.Value) Then
     ActiveCell.Value = "1"
ElseIf ActiveCell.Value = "1" Then
     ActiveCell.Value = ""

     End If

Cancel = True

End Sub

Merci de votre aide

Bonjour

A tester (si j'ai compris)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("AG29,G4:G8,K3:K6,K8:K9,R10,E12:E29,E57:E73")) Is Nothing Then
    On Error Resume Next
    Target = IIf(Target = "", "1", "")
    If Target.Address = "$R$10" Then Range("K10") = ""
    Cancel = True
  End If
End Sub

merci beaucoup tu as tous compris, et ça marche.