Re,
Voir l'essai joint...
J'ai ajouté une fonction qui ne garde que les éléments désirés :
Sub NeGarderQue(xFeuil, xcolonne, ParamArray xValeurs())
- xFeuil est la feuille sur laquelle on travaille
- xcolonne est la colonne pour laquelle on ne veut garder que certaines valeurs
- xValeurs est la liste des valeurs à conserver séparées par des virgules
- ex : Ne garder que les protocoles TDF :NeGarderQue ActiveWorkbook.Worksheets(1), 2, "TDF/3TC/DTG","TDF/3TC/EFV","TDF/3TC/LPV/r"
Si
xValeurs est omis, alors on conserve toutes les lignes (pas de filtrage).
C'est adapté à votre cas -> Les données sont sur les colonnes 1 à 7 (A à G) et les en-tête sont sur la ligne 1.
Un appel à cette procédure est faite dans la procédure d'exportation.
Pour l’exemple, on ne garde que les lignes dont la colonne 4 est égale à "F".