macro automatique

Option Base 1
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim T(10), x&, c As Range
If Sh.Name <> "Cession" Then
    If Target.Column = 10 And Target.Row > 4 And Target.Count = 1 Then
        If IsDate(Target) Then
            x = Target.Row
            T(1) = Cells(x, 1) 'commune
            T(2) = Cells(x, 7) 'vendeur
            T(3) = Cells(x, 2) 'nature
            T(4) = Cells(x, 3) 'sec cadastre
            T(5) = Cells(x, 4) 'N°
            T(6) = Cells(x, 5) 'lieu dit
            T(7) = Cells(x, 6) 'cont
            T(9) = Cells(x, 8) 'prix
            T(10) = Cells(x, 10) 'date cession
            With Sheets("Cession")
                Set c = .Range("A65000").End(xlUp).Offset(1, 0)
                Application.EnableEvents = False
                c.Resize(1, UBound(T)) = T
                Rows(x).Delete
                Application.EnableEvents = True
            End With
        End If
    End If
End If
End Sub