Public Sub Workbook_Open()

' Désactivation des évènements
Application.EnableEvents = False

' Put the back color of a button to red
' line 1
 CB1.BackColor = &HC0&

' Modify the RowHeight of a line
' line 2
 ThisWorkbook.Worksheets("Search").Rows("12:12").RowHeight = 800

' Réactive l'évènement
Application.EnableEvents = True

End Sub