Private Sub okgo()
UserForm3.Hide
Sheets("Broyage").Visible = xlSheetVisible
Sheets("Evapo").Visible = xlSheetVisible
Sheets("Commentaires opérateurs").Visible = xlSheetVsible
With Sheets("Accueil")
[COLOR="Red"][I][B]CommandButton4.Visible = True[/B][/I][/COLOR]
End With
End Sub