XL 2010 Disperser un tableau dans différentes feuilles

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.ScreenUpdating = False
With Sheets("BASE DE DONNEES")
    If Sh.Name <> .Name Then
        Sh.Range("A13:I" & Sh.Rows.Count).Delete xlUp 'RAZ
        With .Range("A13:I" & .Range("A" & .Rows.Count).End(xlUp).Row)
            .AutoFilter 2, Sh.Name 'filtre automatique
            .Copy Sh.[A13]
            .AutoFilter
        End With
        Sh.Range("A13:I" & Rows.Count).Columns.AutoFit 'ajustement largeurs
        With Sh.UsedRange: End With 'actualise les barres de défilement
    End If
End With
End Sub