Excel 2010: creation regle ! HELP

Option Explicit 

Dim AncC 

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim DerLig As Long 
    If Not Intersect(Range("C6:C" & Cells(Rows.Count, 1).End(xlUp).Row), Target) Is Nothing Then 
        If Target.Count > 1 Then Exit Sub 
        If AncC = "" Then 
            If Target = [F2] Or Target = [F3] Then 
                With Sheets(Target.Value) 
                    DerLig = .Cells(Rows.Count, 1).End(xlUp).Row + 1 
                    Rows(Target.Row).Copy .Rows(DerLig) 
                    Rows(Target.Row).Interior.ColorIndex = 6 
                End With 
            End If 
        Else 
            MsgBox "cellule déjà initialisée" 
            Application.EnableEvents = False 
            Target = AncC 
            Application.EnableEvents = True 
        End If 
    End If 
End Sub 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    AncC = Target.Value 
End Sub