Macro VBA qui agrege un tableau qui ne marche pas

Bonjour, je vous explique, mon problème, j'ai une feuille de Synthèse qui est un tableau, il y a 100 membres

Ensuite pour le travail, j'agrege sur une autre feuille avec cette macro (Synthèse étant la feuille de l'image précédente, et User l'autre feuille)

Sub AgrégerUsers()

    Sheets("Synthèse").Select
    nbcells = Application.WorksheetFunction.CountA(Feuil1.Range("$A:$A"))
    ActiveSheet.Range("A6:E" & nbcells).Select
    Selection.Copy

    Sheets("Users").Select
    derligne = Application.WorksheetFunction.CountA(Feuil1.Range("$A:$A")) + 1
    Rows(derligne).Select
    ActiveSheet.Paste

Mais dans la feuille Users, ça ne m'en met plus que 41

Je ne comprends pas du tout le probleme, cela serait-il possible de m'éclairer ? Merci d'avance

Bonjour, difficile de répondre à partir d'images.

Alors c'est très bizarre, mais sur un fichier Excel pris de base, la macro marche, mais sur le fichier de mon travail, elle fait ce que je vous ai montré, je ne comprends pas trop, je vous joins le fichier qui marche

Bonjour

En ligne 2 sous le Sub tu dois ajouter la ligne Dim

Sub AgrégerUsers()

Dim derligne As Integer

oui je l'avais fait avant mais ça fait le même truc sur mon fichier de travail

J'ai identifié le problème, elle est dans la partie

    Sheets("Synthèse").Select
    nbcells = Application.WorksheetFunction.CountA(Feuil1.Range("$A:$A"))
    ActiveSheet.Range("A6:E" & nbcells).Select

Elle ne selectionne pas toutes les ligne

Mais je ne vois pas comment corriger ça