VBA : variable au format nombre ou ...?

Private Sub UserForm_Initialize()
Dim i
For i = 1 To 3
If Not IsEmpty(Range("A" & i)) Then
    Me.Controls("CheckBox" & Range("A" & i)).Value = True
    End If
Next i
End Sub

Private Sub UserForm_Initialize()
  For i = 1 To 9
  If Range("A" & i) <> 0 Then Controls("CheckBoxSem" & Range("A" & i)).Value = True
  Next i
End Sub

For i = 1 To 9
    Controls("CheckBoxSem" & i).Value = [COLOR="Red"][B]([/B][/COLOR]Range("A" & i) [COLOR="Red"][B]= 1)[/B][/COLOR]
next i

'...
  For i = 3 To Range("A65536").End(xlUp).Row
     If Cells(i, 1) = Me.ComboBoxNP.Value Then
        [COLOR="Blue"]Controls("CheckBoxSem" & Range("B" & i)).Value = True[/COLOR]
     End If
  Next i
'...

Private Sub UserForm_Click()
For i = 1 To 3
'Cellules A1 à A3 sont vides ou non vides
'Me.Controls("CheckBox" & i).Value = (Range("A" & i) <> "")

'si la valeur des cellules A1 à A3 est 1 ou vide
Me.Controls("CheckBox" & i).Value = (Range("A" & i) = 1)
Next i
End Sub