Condition si les cellules sont vides (pour une liste)

Bonjour,

J'utilise ce code pour supprimer les checkboxes dont les cellules de leurs mêmes lignes dans la colonne B est vide
Sauf qu'il supprime toutes les checkboxes même lorsque pour une checkbox sa cellule de la meme ligne dans la colonne B n'est pas vide

Dim n As Long
Dim k As Long
Dim cl As Range

For Each cl In Range("B2:B25")
k = k + 1
If IsEmpty(cl) Then
If HasCheckbox(Range("E1").Offset(k, 0)) = True Then
cb.Delete
End If
n = n + 1
End If
Next cl

J'ai essayé de combiner les condition IF comme ça mais ça n'a pas fonctionné, ça m'affiche erreur d'incompatibilité

Dim n As Long
Dim k As Long
Dim cl As Range

For Each cl In Range("B2:B25")
k = k + 1
If IsEmpty(cl) & HasCheckbox(Range("E1").Offset(k, 0)) = True Then
cb.Delete
n = n + 1
End If
Next cl

Bonjour

Avec le fichier il serait plus facile d'apporter une réponse adaptée.