Option Explicit
Sub TestIsEmpty()
Dim TheRows As Byte
Dim MyString As String
For TheRows = 1 To 10
If IsEmpty(Cells(TheRows, 1)) = True Then
MyString = MyString & Cells(TheRows, 1).Address & " / "
End If
Next TheRows
MsgBox "cellules vides: " & vbCrLf & MyString
End Sub