Probleme pour faire des références.

Bonjour a tous,

Je fais appel à tout les pro d'excel en espérant avoir un peu d'aide. J'ai un classeur qui contient deux feuilles. J'ai inséré dans chaque feuille un tableau. Je souhaiterais copier les données du tableau de la première feuille sur la deuxième feuille quand celle-ci atteignent une certaine condition.

Voici le code que j'ai fait jusqu'à maintenant mais je ne m'en sort pas.

Private Sub CommandButton1_Click()

Dim DernLign As Long, i&, LignCible
Dim Table1, Table2 As ListObjects

Set Table1 = ThisWorkbook.Worksheets("VALIDATION BC").ListObjects("TableauValidationBC")

With Table1

DernLign = Range("Table1[A]" & Rows.Count).End(xlUp).Row
LignCible = DernLign + 1

For i = 6 To DernLign
If Range("O" & i) <> "" Then

Range("N° BC" & i).Copy Sheets("EDITION BC").Range("TableauEditionBC[N° BC]" & LignCible)
.Range("Libellé bon de commande" & i).Copy Sheets("EDITION BC").Range("TableauEditionBC[Libellé bon de commande]" & LignCible)
.Range("Date du BC" & i).Copy Sheets("EDITION BC").Range("TableauEditionBC[Date du BC]" & LignCible)

.Range("C" & i).Copy Sheets("EDITION BC").Range("A" & LignCible)
.Range("D" & i).Copy Sheets("EDITION BC").Range("B" & LignCible)
.Range("O" & i).Copy Sheets("EDITION BC").Range("C" & LignCible)
.Range("C" & i).Copy Sheets("EDITION BC").Range("A" & LignCible)
.Range("D" & i).Copy Sheets("EDITION BC").Range("B" & LignCible)
.Range("O" & i).Copy Sheets("EDITION BC").Range("C" & LignCible)

LignCible = LignCible + 1

Sheets("Edition BC").Activate

End If
Next

End With
End Sub

Je bloque sur DernLign = .

J'espère être assez clair sur ce que je veux obtenir. Et surtout avoir de l'aide à comprendre ce que je fais mal.

Cordialement.