Sub import()
Set wb = Workbooks("SUIVI RDV.xlsm")
Set WDest= Workbooks("B.xlsx")
With wb.Sheets("Rapport")
'.Activate
fin = .Range("BE7").End(xlToLeft).Column - 1
.Cells(7, fin).Resize(7, 1).Copy Destination:=WDest.Sheets("Feuil1").Range("B4")
End With
End Sub