Bonjour Zak64000, paritec, le forum,
Un essai....
Sub test()
Dim code As String
Dim Trouve As Range
With Sheets("Sheet1")
code = InputBox("Entrez le code article", "Code article")
If code = "" Then Exit Sub
Set Trouve = .Range("A:A").Find(what:=code, LookIn:=xlValues, lookat:=xlWhole)
If Trouve Is Nothing Then
MsgBox "Le code article n'existe pas"
Else
MsgBox "Le code article existe"
End If
End With
End Sub
Cordialement,