'Flasher les chassis
Worksheets("Code_barre").Select
'commencer à écrire en ligne 3
p = 3
'set message
message = 1
'verouiller majuscules (nécessite un autre sub)
SetCapsLock CapsLockOn
'commencer le flashing
Do Until message = 0
message = InputBox("Commencer à flasher les chassis, puis entrer la valeur 0 pour finir/sortir", "Flasher")
Workbooks("Cartonette1.xlsm").Sheets("Code_barre").Cells(p, 1) = message
p = p + 1
Loop
'enlever le caplock
SetCapsLock CapsLockOff
'compteur : ligne de la valeur du denier code barre scanné
Range("A2") = p - 1