Sub Reinitialise() 'Remet fiche à l'état initiale
Dim O As Range
Application.ScreenUpdating = False
For Each O In Range("CaseaCocherGpr1")
If O = Chr(254) Then O = Chr(168)
Next
[D5,D7] = ""
[E16:E17,I16:I17,E34:E35,I34:I35,E51:E52,I51:I52] = "Sélection"
[C65:K72,B74,G74,C104:C106,G104:G106] = ""
[C104,G104] = "Fiche"
ButonValMat.Visible = False: ButonValApr.Visible = False
[A15].Activate
clcb.réinit
End Sub