If Cells(1, 1) = "commande" Then Columns(2).Hidden = False
Sub MACRO()
If Worksheets("Feuil1").Cells(1, 1) = "commande" Then Worksheets("Feuil1").Columns(2).Hidden = False
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Cells(1, 1) = "commande" Then
Columns(2).Hidden = False
Else
Columns(2).Hidden = True
End If
End If
End Sub