Sub transfert_lignes()
Dim Prem_LIG As Long
Dim FilterRange As Range
Sheets("Bd").Range("A1").AutoFilter Field:=68, Criteria1:="OUI"
Set FilterRange = ActiveSheet.UsedRange.Offset(1, 0) _
.SpecialCells(xlCellTypeVisible)
Prem_LIG = Sheets("Sorties").[A65536].End(xlUp).Row
FilterRange.Copy Destination:=Sheets("Sorties").Cells(Prem_LIG + 1, 1)
FilterRange.EntireRow.Delete
Sheets("Bd").Range("BP1").AutoFilter
End Sub