Bonjour à tous !

Je suis bloqué sur cette macro qui permettra d'effectuer une recherche.
Il y a un message d'erreur sur la variable de "b" alors que je la déclare.

Mon but :
- Faire une recherche en fonction des colonnes b de destination et ma feuille source en colonne y
- S'il trouve il renvoi la valeur de la cellule WsSrc vers wsDest
- s'il celle-ci ne pas égale à OK.

c'est toujours difficile de décrire ce que l'on veut obtenir.
Mais bon je pense que j'ai un bon début mais je bloque sur ce message d'erreur
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
Sub Modif_localistion()
Dim cell As Range
Dim WsSrc As Worksheet
Dim WsDest As Worksheet
 
Set WsSrc = Worksheets("Modif")
Set WsDest = Worksheets("SCDM")
 
For Each cell In WsDest.Range("b1:b" & WsDest.Range("b" & Rows.Count).End(xlUp).Row)
    Set b = WsSrc.Range("y:y").Find(cell, LookIn:=xlValues, LookAt:=xlWhole)
 
    If Not b Is Nothing Then
       If WsSrc.Range("o:o", "p:p", "q:q").Value = "OK" Is Nothing Then
 
        With WsDest
            .Cells(cell.Row, 29) = WsSrc.Cells(cell.Row, 14) 'Modif du bureau
            .Cells(cell.Row, 28) = WsSrc.Cells(cell.Row, 15) 'Modif de l'étage
            .Cells(cell.Row, 27) = WsSrc.Cells(cell.Row, 16) 'Modif Tour
        End With
       End If
    End If
    Next cell
End Sub
help !!!