Je crois que j'ai le même problème que dans cette discussion...

J'essaie de trouver une valeur (variable CreaClientWO) dans la sélection bB. Tel quel, on me retourne une erreur d'exécution 9: l'indice n'appartient pas à la sélection.

Voici le code que j'ai tricoté jusqu'à date. j'essai de trouver une solution simple car cette fonction reviendra plusieurs fois dans mon programme.
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
Private Sub CreaCliDoublValid()
    'ThisWorkbook.CheckVides 'recherche de la prochaine ligne vide
    Dim i As Integer
    'Dim j As Integer (useless)
    Dim bB As Range
    Dim z As Range
 
 
    i = ThisWorkbook.LigneVideClients 'numéro de rangée disponible
 
    Set bB = Sheets("Liste Clients").Range("B2:B" & i)
 
    Set z = bB.Find(CreaClientWO, LookIn:=xlWhole, MatchCase:=False)
    If Not z Is Nothing Then
    CreaCliDoublRep = False
    Else: CreaCliDoublRep = True
    End If
    Set bB = Nothing
    Set z = Nothing
End Sub
Merci de l'aide *(et si ca peu aider d'autre)