Bonjour à tous ,

J'ai une erreur 1004 avec la propriété find next.
J'ai pourtant repris le code issu du support Microsoft que j'ai adapté.

Pouvez m'aider à trouver l'erreur svp ?

Merci d'avance !

En gros, je récupère via une combobox la valeur d'un emplacement.
Je veux chercher cette valeur dans la feuille "Réf". Le problème a lieu sur la partie en gras

Le code est :
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
17
18
19
20
21
22
23
24
    emplacement = ComboBoxRéférence.Value
    
    With Worksheets("Réf")
        Set plage = .Range("b2:z1000")
        Set c = plage.Find(emplacement, LookIn:=xlValues)
    
        plage.Select
        If Not c Is Nothing Then
            adresse = c.Address
            Do
                
                col = c.Column
                ligne = c.Row
                i = col
                While Worksheets("Réf").Cells(ligne, i) <> ""
                    i = i + 1
                Wend
                Range(Cells(ligne, col + 1), Cells(ligne, i)).Cut
                Worksheets("Réf").Paste Destination:=Range(Cells(ligne, col), Cells(ligne, i - 1))
                Set c = plage.FindNext(c)
            Loop While Not c Is Nothing And c.Address <> adresse
        End If
        
    End With