Sub Construit()
finLg = Range("Suivi!A65536").End(xlUp).Row
num = Val(Range("Suivi!A" & finLg)) + 1
Range("Suivi!A" & finLg + 1) = num
Range("Suivi!B" & finLg + 1) = Date
Range("Suivi!C" & finLg + 1) = Time
Sheets("Modéle").Copy
With ActiveWorkbook
.ActiveSheet.Name = "Fac_N°" & num
.ActiveSheet.Range("C4") = num
.SaveAs Filename:=ThisWorkbook.Path & "\Fac_N°" & num & ".xls"
End With
End Sub