If Application.CountIf(Range(Cells(li, 1), Cells(li, 10)), 0) = 10 Then
'ou
If Application.CountBlank(Range(Cells(li, 1), Cells(li, 10))) = 10 Then
'voire
If Application.CountIf(Range(Cells(li, 1), Cells(li, 10)), 0) + Application.CountBlank(Range(Cells(li, 1), Cells(li, 10))) = 10 Then