Sub OpenFile()
FileToOpen = Application.GetOpenFilename("Fichier Export (*.slk), *.slk")
If FileToOpen = False Then
Exit Sub
Else
Application.DisplayAlerts = False
Application.EnableEvents = False
Dim today As Date
today = Date
Dim MyCell, Rng As Range
Set Rng = Sheets(1).Range("B10:B10000")
Workbooks.Add
filetosave = Application.GetSaveAsFilename(InitialFileName:="Rapprocement Bancaire du " & Format(today, "dd mmmm yyyy"), fileFilter:="Excel Files (*.xlsx), *.xlsx")
ActiveWorkbook.Save
Workbooks(FileToOpen).Select
For Each MyCell In Rng
If MyCell <> "" Then
MyCell.EntireRow.Copy
Workbooks(filetosave).Range("A1").Select
Else
Exit Sub
End If
Next
End If
End Sub