Sub Ferme_APP()
'
If ActiveSheet.Name = "App." Then
ActiveSheet.Columns("G:M").EntireColumn.Hidden = True
Range("C1313").Select
ElseIf ActiveSheet.Name = "Cal.app." Then
ActiveSheet.Columns("G:L").EntireColumn.Hidden = True
Range("C1313").Select
End If
End Sub