Code de la feuille, comment dire quelque soit le double clic colorer en vert et figer date du jour ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
  With Target
    If Target.Column = 4 Then
      If Target = "" Then Cells(Target.Row, 4) = Date
      If Target <> "" Then Target.Interior.Color = RGB(0, 255, 0)
    End If
  End With
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Oust As Boolean)
  If R.Column = 4 Then
    Oust = 1
    R = IIf(IsDate(R), "", Date)
    If R = "" Then R(1, 8) = ""
  End If
  If R.Column = 11 Then
    If R(1, -6) <> "" Then
      Oust = 1
      R = IIf(IsDate(R), "", Date)
    End If
  End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
    If .Column >= 1 Then
    Cells(Target.Row) = Date
    If Target <> "" Then Target.Interior.Color = RGB(0, 255, 0)
    End If
End With
Cancel = True
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Oust As Boolean)
  Oust = 1: R = Date: R.Interior.Color = vbGreen
End Sub