VB vérification de celulle vide(KO)

Bonjour à tous,
Je viens vers vous parce que je suis confronté à un problème/bug/truc/machin/chose que je ne comprend pas.
Voici mon code vb qui me sert à la cope de celulle sur une feuille:

Sub CreerTableauFinal()
'
' CreerTableauFinal Macro
'
Dim c As Integer
Dim D As Integer
c = 1

Cells.Select
With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
End With
    With ThisWorkbook.Sheets("Feuil1")
        For D = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
                If IsEmpty(Range("B" & D).Value) <> Range("B" & D).Value = "" Then
                Worksheets("Feuil1").Range("C" & D).Copy Worksheets("Feuil2").Range("A" & c)
                c = c + 1
                Else
                Worksheets("Feuil1").Range("C" & D).Copy Worksheets("Feuil2").Range("A" & c)
                c = c + 1
                Worksheets("Feuil1").Range("B" & D).Copy Worksheets("Feuil2").Range("A" & c)
                c = c + 1
                End If
        Next D
End With
End Sub

La vérification de : IsEmpty(Range("B" & D).Value) marche quand bon lui semble ce qui dans l'informatique s'appelle un random ^^

Est ce quelqu'un aurait rencontrer le même problème sur ce type de vérification?
Si oui pouvez-vous m'expliquez la solution?

Merci d'avoir pris le temps de lire mon post.
Bonne journée.