With Worksheets("Récapitulatif-BL")
Dim DerLigne As Long
Dim Cell As Range
DerLigne = .Range("A65535").End(xlUp).Row + 1
.Cells(DerLigne, 1).Value = Feuil1.Range("R9").Value
.Cells(DerLigne, 3).Value = Feuil1.Range("C11").Value
.Cells(DerLigne, 6).Value = Feuil1.Range("N11").Value
.Cells(DerLigne, 9).Value = Feuil1.Range("C13").Value
.Cells(DerLigne, 12).Value = Feuil1.Range("N13").Value
'.Cells(DerLigne, 15).Value = ActiveWorkbook.FollowHyperlink Address:=Range("A12")
'End With