Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("c3")) Is Nothing Then
toto
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Rows.Count <> 1 Or Target.Columns.Count <> 1 Or Target.Column <> 3 Then Exit Sub
Target.Offset(0, 4).Resize(, 4).Copy Destination:=Target.Offset(1, 4)
Application.EnableEvents = False
Target.Offset(1, -2).Select
Application.EnableEvents = True
End Sub