Bonjour à tous
je suis nouveau ici, je vous explique mon problème:
j'ai un code que j'arrive pas à faire marcher:

Je souhaite incrémenter la valeur d'une cellule à chaque fois que le contenu de cette cellule est compris dans une plage.
(du genre: si E4=2 et que 2 est dans ma plage, faire E4=3 et si 3 est dans la plage, faire E4=4 jusu'à ce que la valeur de E4 est différente de toutes les valeurs de ma plage)

Voilà le code qui me met "erreur type":

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub recherche()
Dim a As Range, mad As Date, plage As Range, cell As Range
Set plage = Range("B3:B127")
mad = Range("E2") + Range("E3")
Cells(4, "E") = mad
For Each cell In plage
    Do
Set a = Range("B3:B127").Find(Range("E4"), Range("B3"))
        If Not Range("B3:B127") Is Nothing Then
        Cells(4, "E") = mad + 1
        End If
    Loop Until Cells(4, "E") <> plage.Value
Next cell
End Sub