NomShape = Application.Caller
Set plage = Sheets("Divers").Range("A4:A14")
For Each cel In plage
If cel = NomShape Then
Sheets("Divers").Range("D6") = cel.Offset(0, 8)
feuille = Replace(cel.Offset(0, 9), " ", "")
Sheets(feuille).Visible = True
Sheets(feuille).Select
End If
Next cel
t = Sheets.Count
For s = 1 To t
If Sheets(s).Name <> "OP" & Sheets("Divers").Range("D6") Then
Sheets(s).Visible = False
ElseIf Sheets(s).Name = "OP" & Sheets("Divers").Range("D6") Then
Sheets(s).Visible = True
End If
Next s