I have found solution, thanks anyway !!!
Solution :
http://www.mrexcel.com/forum/excel-q...ml#post3720908
or in code:
Code:
Option Explicit
Private Sub UserForm_Initialize()
Me.CheckBox1 = application.WorksheetFunction.CountA(Sheet1.Range("E4,E6")) = 2
End Sub