Ecrire dans une cellule multiligne

Bonjour a tous et a toute.

Voici mon petit problème...

Dans la colonne G de mon fichier excel j'ai des cellules multiligne ( Alt + enter ) et des cellules normal.
J'aimerais écrire dans la colonne O le message suivant "OK " si la cellule de la colonne G est normal est écrire plusieurs fois le mot OK si la cellule est de type multiligne.
Le bout de programme que j'ai écris ne fait apparaitre qu'une seule fois le mot OK dans une cellule multiligne

Pouvez vous m'aider a corriger ce petit beug , merci d'avance a tous ceux qui pourront m'aider...Le problème vient de la ligne de couleur rouge

Voici mes lignes de code :

For i = 1 To Feuil1.Range("A65536").End(xlUp).Row - 3

If (Feuil1.Range("G4").Cells(i, 1) = "") Then Exit Sub
TabReferenceIndusPicture() = Split(Range("G4").Cells(i, 1), ChrW(10))
For j = 0 To UBound(TabReferenceIndusPicture)
If UBound(TabReferenceIndusPicture) = 0 Then
Excel.Workbooks(1).Sheets("essai").Cells(i + 3, 15).Value = "OK"
else
Excel.Workbooks(1).Sheets("essai").Cells(i + 3, 15).Value = "OK" & vbLf
end if
Next j
Next i

Code:

---

Excel.Workbooks(1).Sheets("essai").Cells(i + 3, 15).Value = Excel.Workbooks(1).Sheets("essai").Cells(i + 3, 15).Value & "OK" & chr(10)

---