Boucle if et chargement Hyperion

Bonjour

J'ai un souci avec mon code, je cherche à charger des données d'excel ver smartview, j'ai d'un côté une feuille "LOAD" où j'ai ce que je veux loader et de l'autre une feuille "EMP" avec la feuille connectée à hyperion.

Je match donc un compte sur la feuille "LOAD" et recopie les données dans ma feuille "EMP" sur la ligne ou j'ai matché ^^

Dim a, b As Integer
Sheets("EMP").Activate
b = Sheets("LOAD").range("C7").End(xlDown).Row

UF.show vbModeless

For a = 7 To b
UF.lbl1.Caption = "Loading in progress... " & Round(a / (a + b), 1) * 100 & "%"
DoEvents
UF.Repaint
Application.ScreenUpdating = False

If Sheets("LOAD").Cells(a, 3) <> Sheets("LOAD").Cells(a + 1, 3).Value Then
TestEssbaseSubmitData
X = HypSetPages(ByVal EMP, "Entity#" & Sheets("LOAD").Cells(a + 1, 3).Text)
Else
X = Application.Match(Sheets("LOAD").Cells(a, 4).Text & "*", Sheets("EMP").Columns(1), 0)
        If IsNumeric(X) = True Then
            With Sheets("EMP")
                .Cells(X, 19).Resize(, 12).Value = Sheets("LOAD").Cells(a, 10).Resize(, 114).Value
            End With
        End If
End If

Next a
Application.ScreenUpdating = True
UF.lbl1.Caption = "Loading Completed!"

Je pense que le souci se trouve dans mon "if", tout se passe bien, sauf que la dernière donnée du tableau load n'est pas recopiée avant le chargement dans hyperion.

e.g.:

Comptes montant

724600 48

722700 100

722800 300

716200 400

720800 500

722000 600

Tout se passe bien sauf pour le dernier compte, celui là n'est pas chargé

Merci d'avance pour votre aide ,

Jeremy