Sub Longueur()
'
' Longueur Macro
'
' Sélection par longueur d'élément
If Not AutoFilterMode Then ' annule les filtres
valeur = InputBox("Longueur des éléments ?")
Range("A1").AutoFilter Field:=1, Criteria1:="=" & valeur, Operator:=xlAnd
' Annule le filtre pour élément suivant
' On Error Resume Next
' Worksheets("Feuil1").ShowAllData
valeur = InputBox("saisir le nombre de portes")
Range("B1").AutoFilter Field:=2, Criteria1:="=" & valeur, Operator:=xlAnd
' Portemiroir Macro
'
valeur = InputBox("Nombre de porte miroir")
Application.ScreenUpdating = False
For j = 5 To 9
Cells(1, j).EntireColumn.Hidden = Not (CInt(Cells(2, j)) = CInt(valeur))
Next j
'Columns("E:I").Hidden = True
'If Range("f2").Value = "2" Then Columns("G:I").EntireColumns.Hidden = True
'If Range("G3").Value = "3" Then Columns("F2, H2:I2").EntireColumns.Hidden = True
Application.ScreenUpdating = True
End If ' fin de commande
End Sub