Find qui find mal

Bonjour
j'ai un fichier adresse commun
pour éviter de laisser ce fichier ouvert je crée un tableau ( c'est accessoire)
je communique avec ce fichier adresse via un USF
je teste le non de société en colonne B
je peut pour une même société avoir plusieurs correspondants
pour supprimer une adresse j'emploie ( ou plutôt je tente d'employer) la macro suivante
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 Windows("Adresses_liste.xls").Activate plage = "b2:b" & Range("b65535").End(xlUp).Row With Worksheets(1).Range(plage) Set c = .Find(AdrS(2), LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address lg = c.Row For t = 1 To 10 If .Cells(lg, t).Value = AdrS(t) Then verif = verif + 1 Else verif = 0 Exit For End If Next If verif = 10 Then .Range("A" & lg & ":F" & lg).Delete Shift:=xlUp End If Do Set c = .FindNext(c) lg = c.Row For t = 1 To 10 If .Cells(lg, t).Value = AdrS(t) Then verif = verif + 1 Else verif = 0 Exit For End If Next If verif = 10 Then .Range("A" & lg & ":F" & lg).Delete Shift:=xlUp End If Loop While Not c Is Nothing And c.Address <> firstAddress End If End With
je dis je tente parce que la macros tourne comme une horloge mais ne supprime rien

j'emploie la méthode find pour pouvoir pointer rapidement l'adresse et la supprimer dans la foulée. Ceci afin de refermer le plus rapidement possible le fichier une trentaine de personnes pouvant avoir besoin d'un accès au fichier . (Le partage de classeur me posant des problèmes avec l'USF je me suis orienté sur des ouverture/fermeture rapides)
merci
Daranc