Private Sub Command_pj_Click()
Dim sh As Worksheet
For Each sh In Sheets
Select Case sh.Name
Case "prix", "remise", "escompte"
If Not sh.Visible = True Then
sh.Visible = True
MAJControle
sh.Unprotect
With sh
.Range("A15:A43").AutoFilter
.Range("$A$15:$A$44").AutoFilter Field:=1, Criteria1:="<>"
End With
sh.Protect
Exit Sub
Else
MsgBox ("Vous devez d'abord relancer le calcul des factures ")
End If
End Select
Next sh
End Sub