Mon code s'arrête à une ligne sans raison!!

Bonjour,

J'ai un problème que je comprend pas, mon code s'arrête
tout seul, sans afficher de message de bug et sans que j'ai mit
de points d'arrêt, quelqu'un pourrait il m'aider s'il vous plait, merci

Function dhaut(ByVal elem As Variant, _
ByVal col As Long, ByVal ldeb As Long, ByVal lfin As Long)
Dim i As Long: i = ldeb
Do
If elem < Cells(i, col).Value Then
Cells(i - 1, col).Value = elem: Exit Function
End If
Cells(i - 1, col).Value = Cells(i, col).Value" c'est à cette ligne qu'il s'arrête tout seul"
i = i + 1
If i > lfin Then
Cells(lfin, col).Value = elem
Exit Function
End If
Loop
End Function

merci de votre aide!!!