Filtre automatique sous VBA Excel 2010

Bonjour à tous et à toutes,

Novice sous VBA, je vais vous expliquer du mieux que je peux mon problème.

J'ai une feuille nommé "Total". Cette feuille répertorie une liste d'agents et leurs résultats, équipes et attributions en tableau que l'on peut trié.

Je souhaite, à partir d'une feuille 1 nommée Chargement, éxecuté un tri automatique en fonction de l'agent, ou de son équipe. C'est à dire un bouton qui m'affiche l'agent et ses résultats dans une feuille "résultat", un autre bouton qui m'affiche la totalité des agents d'une équipe toujours dans cette feuille résultat.

Afin de lier les données de la liste déroulante de la feuille 1 Chargement, j'ai lié les données dans une feuille 2 nommée base elle même lié à une fonction recherche dans la feuille Total.

Ainsi à chaque fois que l'utilisateur sélectionnera un nom dans une liste déroulante, celui ci lié à un identifiant dans la feuille Base, sera alors lié à la recherche qui affichera le nom de l'agent dans la feuille Totale dans une case éloigné de mon tableau.

Plusieurs problèmes :
- Tout d'abord, mon code ne m'affiche pas le résultat attendu
- Ensuite il faut que les résultats soit effacés à chaque nouveau clic, pour être remplacé par les nouveau résultats. (je ne sais pas faire cela)
- Bizarrement, quand je clique sur le bouton, il me réduit à 0 la taille des lignes de la feuille Total en me conservant que l'en tête des colonnes.

Voici mon code :

Sub chargement()

'Déclaration de la variable Agent
Dim Agent As String
Agent = Sheets("Total").UsedRange.Rows.Count

'Activation de la feuille Total
Sheets("Total").Activate

'Filtre en fonction de l'agent
Range("$H" & Agent).Select
Selection.AutoFilter
ActiveSheet.Range("$H" & Agent).AutoFilter Field:=2, Criteria1:=("M1")

'Copie de la ligne filtrée sous condition
If (Range("$H$2")) = (Range("$M$1")) Then
Rows("2").Copy

'Activation de la feuille résultat
Sheets("Resultats").Activate
Sheets("Resultats").Select

'Sélection de la ligne 2
Rows("2").Select

'Coller le résultat
ActiveSheet.Paste

End If

End Sub

Pour ceux qui sont intéréssés, je peux envoyer mon fichier si vous le souhaitez. Merci de votre aide, car ca fait deux jours que je m'arrache les cheveux pour un bout de code. :(