Sub Macroaaa()
Dim n As Long
With Sheets("bd Sortie")
n = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
If n < 4 Then n = 4
Sheets("bd").Rows(Sheets("Sortie de stock").Range("A17").Value).Copy
.Cells(n, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End Sub