On Error GoTo gestionerreur: ' On déclenche la gestion des erreurs
Feuil2.Range("AQ1").Value = ("YY") ' On affecte à la cellule AQ1 de la feuille Données "le nom de l'adresse de la colonne" que l'on souhaite chercher dans la feuille Véhicule_Agent
Feuil2.Range("AQ2").Value = ListBox7.List(ListBox7.ListIndex) ' On affecte à la cellule AQ2 de la feuille Données, la valeur que l'on a récupérer dans la ListBox7 en colonne 1
'
Feuil6.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, criteriarange:=Feuil2.Range("AQ1:AQ2"), CopyToRange:=Feuil2.Range("AR1:AZ1"), Unique:=False ' il copie les valeurs dans le tableau en plage AR1:AZ1
'