Sheets("UtilisateurCourant").Select
If Range("A1") = 2 Then 'A1=2 => utilisateur courant = magasinier
Sheets("Sommaire").Shapes("Group 13").Visible = False 'equipements
Sheets("Sommaire").Shapes("Group 7").Visible = False 'rapport
Sheets("Sommaire").Shapes("Group 37").Visible = False 'planning
Sheets("Sommaire").Shapes("Group 38").Visible = False 'Listing
Else
Sheets("Sommaire").Shapes("Group 13").Visible = True 'equipements
Sheets("Sommaire").Shapes("Group 7").Visible = True 'rapport
[COLOR="Red"]Sheets("Sommaire").Shapes("Group 37").Visible = True 'planning[/COLOR]
Sheets("Sommaire").Shapes("Group 38").Visible = True 'Listing
End If