Sub AfficheCritereAng()
Columns("B:B").Rows("5:5").Select 'séléction de la colonne où se trouve le critère
Selection.AutoFilter ' met en place les filtres automatique
Critère = InputBox("Critère", "Saisie critère ENG") ' Saisie du critère à rechercher
Selection.AutoFilter Field:=1, Criteria1:=Critère ' affichage du critère cherché
'Selection.AutoFilter Field:=1 ' retour à l'affichage complet de la colonne
' enlever le petit ' pour que la ligne soit opérationnelle
End Sub
Sub AfficheCritereFra()
Columns("C:C").Rows("5:5").Select 'séléction de la colonne où se trouve le critère
Selection.AutoFilter ' met en place les filtres automatique
Critère = InputBox("Critère", "Saisie critère FRA") ' Saisie du critère à rechercher
Selection.AutoFilter Field:=1, Criteria1:=Critère ' affichage du critère cherché
'Selection.AutoFilter Field:=1 ' retour à l'affichage complet de la colonne
' enlever le petit ' pour que la ligne soit opérationnelle
End Sub