Bonjour à tous,

Voila il y a un bug avec la fonction Find. Lorsque mon objet trouve est egal à Nothing j'ai un bug au niveau de la ligne avec le smiley
J'ai le message d'erreur : Argument ou appel de procédure incorrect et je ne sais pourquoi
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
For i = 3 To Ligne2
    Set Trouve = Tabextraction.Find(Cells(i, 1))
            Range(Cells(i, 2), Cells(i, 9)).Copy
             If Trouve Is Nothing Then
               Set Trouve = Tabextraction.FindNext(Trouve)  ' <== :?
              Else
            Agglo.Activate
            Cells(Trouve.Row, 14).Select
            Agglo.Paste
            Critere.Activate
 
 
             End If
Merci pour votre aide