Sub Afficher_Documents()
Dim Nom As String
Dim Prénom As String
Application.ScreenUpdating = False
With Sheets("Employé")
Nom = .Range("Nom").Text
Prénom = .Range("Prénom").Text
.OLEObjects("TEST").Visible = True
.OLEObjects.Visible = False
End With
For Each s In ActiveSheet.Shapes
If s.Name Like "*" + Nom + "_" + Prénom Then s.Visible = True
Next s
Sheets("Accueil").Visible = False
End Sub