Fonction Nbval sous VBA

Sub test()
Dim DerLigne As Long
DerLigne = Range("A" & Rows.Count).End(xlUp).Row
    For i = 3 To DerLigne
        If Application.CountA(Cells(i, 3), Cells(i, 10)) > 0 Then
            Cells(i, 11) = 1
        Else
            Cells(i, 11) = 0
        End If
    Next i
End Sub

Sub test()
Dim DerLigne As Long
DerLigne = Range("A" & Rows.Count).End(xlUp).Row
    For i = 3 To DerLigne
        Cells(i, 11) = IIf(Application.CountA(Cells(i, 3), Cells(i, 10)) > 0, 1, 0)
    Next i
End Sub

Sub test()
Dim DerLigne As Long
DerLigne = Range("A" & Rows.Count).End(xlUp).Row
    For i = 3 To DerLigne
        If Application.CountA(Cells(i, 3).Resize(, 8)) > 0 Then 
       'If Application.CountA(Range(Cells(i, 3), Cells(i, 10))) > 0 Then
            Cells(i, 11) = 1
        Else
            Cells(i, 11) = 0
        End If
    Next i
End Sub