Bonjour
essaies ceci
For x= 2 to 795
Mavaleur=Workbooks('Mai 2005').sheets('Feuil1').Range('A' & x)
Set c = Workbooks('Juin 2005').sheets('Feuil1').Range('A1:A65536').Find(Mavaleur, , , xlWhole)
If not c is nothing then
Workbooks('Mai 2005').sheets('Feuil1').Range('K' & x)='Ok'
end if
next
Bon courage