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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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 sans afficher de bug, ni de boite de dialogue, il arrête juste l'exécution comme s'il y'avait un point d'arrêt, alors qu'il n'y en pas" 
i = i + 1 
If i > lfin Then 
Cells(lfin, col).Value = elem 
Exit Function 
End If 
Loop 
End Function