Salut,
Tu ne peux pas utiliser du find avec du true il faut passer par une variable range
dim C as range
Workbooks('stock vo compt.xls').Activate
Range('b:b').Select
Set c = Selection.Find((what:=nvo, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True)
If c Is Nothing Then
Range('c' & i + 2) = nvo
Else
Workbooks('stkvo.dbf').Activate
End If
Next
End Sub
A+++