créer une fonction "entre classeur"

Function Val_Filtres(Emplacement_filtre As Range) As String
'Feuille -> la feuille du filtre à étudier
'Emplacement_filtre -> premiere cellule du filtre actif
Dim CritFiltres As String
Dim N_ligne_du_filtre, N_colonne_du_filtre As String
Dim c, i As Byte
Dim CoupureDate As Integer
Application.Volatile
Val_Filtres = ""
CritFiltres = ""
'N_Ligne_du_Filtre -> N° de la ligne surlaquelle le filtre est activé
N_ligne_du_filtre = Emplacement_filtre.Row
'N_colonne_du_Filtre -> N° de la colonne surlaquelle le filtre est activé
N_colonne_du_filtre = Emplacement_filtre.Column
With Sheets(Emplacement_filtre.Worksheet.Name).AutoFilter

Cliquez pour agrandir...