Sub Toutmasquer()
'
' Afficher Macro
'
'
Dim ws As Worksheet
For Each ws In ActiveWindow.SelectedSheets
With ws
.Range("D25").EntireColumn.Hidden = True
.Columns("C:C").ColumnWidth = 78
.Columns("B:B").ColumnWidth = 10
.Columns("A:A").ColumnWidth = 4
End With
Next
End Sub