Sub Inv_Cde_Barre_b()
Dim cnt As Integer
Dim cola As Range
Dim colj As Range
Sheets("Stock").Select
Set cola = Range("A4:A961")
For Each colj In cola
If colj.Value <> "" Then
If colj.Offset(0, 9).Value = "Inexistant" Then
With Sheets("Stock")
cnt = Application.CountIfs(colj.Offset(0, 9), "Inexistant")
End With
End If
End If
Next colj
If cnt > 0 Then
MsgBox "vous avez " & cnt & " code(s) manquant(s)"
End If
End Sub