Sub myscan()
code = "58FRBBXN264B10676814078" 'code recu de la scanette à modifier
nb = InputBox("Entrez la Quantité", "Qté", 1)
'si annuler on quitte
If nb = "" Then Beep: Exit Sub
lig = Application.Match(code, Feuil1.[H1:H65536], 0)
If IsNumeric(lig) Then
'si code trouvé
cells(lig, 7) = cells(lig, 7) + nb
Else
'si pas trouvé ajout de ligne en bas
bas = [H65536].End(3).Row + 1
cells(bas, 8) = code
cells(bas, 7) = nb
End If
'pour le parc j'ai pas d'indication
End Sub