Bonsoir à tous,

Quelqu'un saurait-il me corriger l'erreur présente dans cette boucle ?
VBA me dit "Erreur de compilatio : qualificateur incorrect

Voici la boucle
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Dim i As Double
Dim LMaxDD As Double
Dim cellresultat As Double
cellresultat = Application.Min(range("D2:D20000"))
LMaxDD = Application.Match(cellresultat.range("D2:D20000"))
i = LMaxDD
For i = 10000000 To 0
If LMaxDD < LMaxDD - 1 Then cellresultat = LMaxDD - 1
If LMaxDD = 0 Then
Exit For
End If
Next
Je vous remercie d'avance, je dois rendre ça pour demain et je galère complètement !

Marc