copier coller plage de donnees

Sub selection()
With Sheets("Portfolio Data")
    Set deb = .Range("A:A").Find(what:="Floaters", LookIn:=xlValues, lookat:=xlWhole)
    If deb Is Nothing Then MsgBox "Floaters non-trouvé": Exit Sub
    Set fin = .Range("A:A").Find(what:="END", LookIn:=xlValues, lookat:=xlWhole)
    If fin Is Nothing Then MsgBox "END non-trouvé": Exit Sub
    .Range("A" & deb.Row + 1 & ":A" & fin.Row - 1).Copy Sheets("Historical Coupon Dates").Range("A2")
End With
End Sub