Sub Panier()
Dim F1 As Worksheet, F2 As Worksheet, s As Shape, lig&, i&
Set F1 = Sheets("Consommables")
Set F2 = Sheets("Panier")
Application.ScreenUpdating = False
For Each s In F1.Shapes
s.Placement = 1 'déplacer et dimensionner avec les cellules
Next
For Each s In F2.Shapes
If s.TopLeftCell.Row > 3 Then s.Delete 'supprime les images et compteurs
Next
F2.Rows("4:" & F2.Rows.Count).Delete 'RAZ
lig = 4
With F1.[A1].CurrentRegion
For i = 3 To .Rows.Count
If .Cells(i, 9) > 0 Then
.Rows(i).EntireRow.Copy F2.Cells(lig, 1)
.Cells(i, 9) = 0 'RAZ
lig = lig + 1
End If
Next
End With
F2.[A3].Copy [A3] 'allège la mémoire
If lig > 4 Then F2.Activate
End Sub