Sub Bouton1_Cliquer()
With Sheets("stock")
Set plage = .Range("W3:W" & .Range("W65000").End(xlUp).Row)
For Each c In plage
If c.Value = "A" Then
X = Sheets("Armoire A").Range("B65000").End(xlUp).Row + 1
Sheets("Armoire A").Cells(X, 2) = c.Offset(0, -20).Value
End If
Next
End With
End Sub