Sub Go()
Dim Nom As String
Dim Cl As Integer
Dim Lg As Long
Nom = Format(Range("E15"), "mmmm yyyy")
Lg = Day(Range("E15"))
Cl = (Lg * 2) + 1
On Error Resume Next
Sheets(Nom).Visible = True
If Err.Number > 0 Then
MsgBox "Page " & Nom & " inexistante"
Exit Sub
End If
On Error GoTo 0
With Sheets(Nom)
.Unprotect
.Columns("A:IV").Hidden = True
.Columns(1).Hidden = False
.Columns(Cl - 1).Hidden = False
.Columns(Cl).Hidden = False
.Select
.Protect
End With
Application.Goto Cells(Lg + 1, Cl)
End Sub