For Each Sht In Sheets(Array("A-1", "A previsionnel"))
With Sht
Select Case n
Case 1
.Columns("h:gz").Hidden = False
.Range("I:L,o:P,T:Y,AA:AC,AE:EZ,FC:FF,FH:FK,FM:FP,FR:FU,FW:fz").EntireColumn.Hidden = True
.Activate
.Range("G9").Select
Case 2
.Columns("h:gz").Hidden = False
.Range("I:L,o:P,T:Y,AA:AC").EntireColumn.Hidden = True
.Activate
.Range("G9").Select
End Select
End With
Next