La façon plus propre de faire est isempty(activecell)
Voici un petit exemple qui contient d'autres astuces:
Dim iI As Integer
Dim vI As Variant
Sub TestType()
' Je vérifie s'il y a déjà une feuille "TestType"
For Each vI In Worksheets
If vI.Name = "TestType" Then
' La ligne suivante empèche de devoir
' confirmer la suppression
Application.DisplayAlerts = False
' Je supprime la feuille "TestType"
vI.Delete
' Ne pas oublier de remettre les messages de confirmation
Application.DisplayAlerts = True
End If
Next vI
' J'ajoute une feuille
Worksheets.Add
' Je la renomme
ActiveSheet.Name = "TestType"
' J'y mets quelques valeurs
[A1] = 5
[B1] = 0
[C1].Formula = "=a1/b1"
[D1] = "Du texte"
For iI = 1 To 5
' J'affiche le numéro du type de contenu
' Type 5 = vbDouble
' Type 10 = vbError
' Type 8 = vbString
' Type 0 = vbEmpty
MsgBox ("La cellule " & Cells(1, iI).Address & vbCrLf _
& "est de type " & VarType(Cells(1, iI)))
If IsEmpty(Cells(1, iI)) Then
' Si la cellule est vide, je le dis
MsgBox ("La cellule " & Cells(1, iI).Address & " est vide" )
End If
Next iI
End Sub