Sub NouveauFichier()
Dim chemin$, source$, nom$, col%, nouveau$
chemin = ThisWorkbook.Path & "\" 'à adapter
source = "base.xls"
nom = ActiveWorkbook.Name
Application.ScreenUpdating = False
On Error Resume Next
Workbooks.Open chemin & source 'ouverture du fichier source
'---nouveau document---
Workbooks(source).Sheets(1).Copy
If ActiveWorkbook.Name = nom Then _
MsgBox "Fichier '" & source & "' introuvable !": Exit Sub
With ActiveWorkbook.Sheets(1).UsedRange
col = .Columns.Count + 1
.Columns(col).FormulaR1C1 = "=LN(RC45*0.75<=RC57)"
.Columns(col) = .Columns(col).Value
.Resize(, col).Sort .Columns(col), xlAscending, Header:=xlYes
.Columns(col).Offset(1).SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
.Columns(col).ClearContents
End With
'---enregistrement---
nouveau = "Mon beau fichier " & Format(Now, "dd-mm-yyyy") 'à adapter
ActiveWorkbook.SaveAs chemin & nouveau
ActiveWorkbook.Close False 'facultatif
Workbooks(source).Close 'facultatif
End Sub