Selection tableau

Bonjour,

Sur une feuille excel, j'ai plusieurs tableaux TCD. Disons le premier commence à la ligne 3 jusqu'à la ligne 10

j'applique le code ci dessous pour selectionner et le copier, pas de problème. Le problème commence lorsque j'ai deux tableaux. Disons que le deuxième commence à la ligne 20 jusqu'à la ligne 30. Losque j'applique le même code, il copie jusqu'à la ligne 30, c'est à dire les deux tableaux, alors que je ne veux copier que le premier (ligne3 à 10).

Sub DimTableau()
    Dim cell As Range, i As Integer, nom As String
    Dim derli As Long
    Dim TestLig As Long
    Dim TestCol As Long
    Dim derCol As Long
    
    'colonne active
    ActiveSheet.Cells(3, 1).Select
    'TestCol = ActiveCell.Column
    TestCol = 1
    'ligne active
    TestLig = ActiveCell.Row
    'Cells(TestLig, TestCol).Select
    
    'derniere colonne
    derCol = Rows().Find("*", , , , , xlPrevious).Column
    
    'dernière ligne
    derli = Columns().Find("*", , , , , xlPrevious).Row
    
    'selection du tableau
    Range(Cells(TestLig, TestCol), Cells(derli, derCol)).Select
         
     'copie le tableau
    Selection.Copy

Merci pour votre aide

Configuration: Windows XP
Internet Explorer 6.0