Public Sub sortie()
Dim c As Range
For Each c In Sheets('Feuil1').Range('C54:C60')
If c <> 'STOP PAS DE PIECE EN STOCK-' And c <> '' Then
With Workbooks('stock.xls').Sheets('stock')
.Range(.Columns('B:B').Find(c).Address(0, 0)).Offset(0, 3) = .Range(.Columns('B:B').Find(c).Address(0, 0)).Offset(0, 3) + c.Offset(0, 3)
End With
End If
Next c
End Sub