Sub Control_Show()
Dim Uauth As Variant, User As Variant, Vis As Boolean
Uauth = Array("François", "Michel")
For Each User In Uauth
If Application.UserName = User Then
Vis = True
Exit For
End If
Next
Worksheets("FACTURATION FERRONERIE").Visible = Vis
Worksheets("FACTURATION CABLAGE").Visible = Vis
End Sub