Suppression de ligne avec programmation vba

Bonjour,

J'ai un tableau avec 2 colonnes et je souhaite si la cellule de la 2eme colonne est vide supprimer la ligne entière.
Voici mon code initial :
Sub macro_a_la_main()

Windows("Equipements cfo.xls").Activate
Range("2:2,211:211").Select Selection.Copy
Windows("macro.xls").Activate 'Activation du classeur d'arrivée
Range("A1").Select ' sélection de la ligne 1
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True 'Collage sur la feuille de destination

For i = 8 To 113
Cells(i, 2).Select
If IsEmpty(Selection.Value) = True Then
Selection.EntireRow.Delete
End If
Next i

End Sub

J'ai fait un code, mais celui-ci ne me supprime que certaines lignes dont la 2eme colonne est nulle et je ne comprends pas pourquoi...

Qqun pourrait m'aider ?