Bonjour foufana, tototiti2008, jeanpierre,
Comme j'avais préparé une réponse je la poste
Il est évident que c'est une bonne occasion d'utiliser l'enregistreur de macro qui vouis donneras ça:
Code:
Sub Macro2()
Columns("P:P").Select
Selection.EntireColumn.Hidden = True
Columns("O:Q").Select
Selection.EntireColumn.Hidden = False
End Sub
Que l'on peut réduire à :
Code:
Sub Macro3()
Columns("P:P").EntireColumn.Hidden = True
Columns("P:P").EntireColumn.Hidden = False
End Sub