bonsoir olivier , bonsoir minick
la procedure de minick fonctionne tres bien chez moi ...
pour toutes les feuilles du classeur tu peux essayer :
Sub Afficher()
Dim val As Worksheet
Dim cible As String
For Each val In ThisWorkbook.Sheets
cible = val.Name
Worksheets(cible).Cells.EntireRow.Hidden = False
Worksheets(cible).Cells.EntireColumn.Hidden = False
Next
End Sub
bonne soirée
michel