Sub EnregistrerSous()
Dim I As Integer, FName As String
ChDir "C:\22\"
FName = "TEST - " & Format(Year(Date), "0000") & "-" & Format(Month(Date), "00") & "-" & _
Format(Day(Date), "00") & " - " & Format(Hour(Time), "00") & "H" & Format(Minute(Time), "00") & "m"
ActiveWorkbook.SaveAs Filename:=FName
I = I + 1
Dim f As String, Tableau(), J As Integer
J = 1
f = Dir("C:\22\*.xls")
ReDim Preserve Tableau(J)
Tableau(J) = f
While Left(f, 4) = "TEST"
J = J + 1
ReDim Preserve Tableau(J)
f = Dir
If Left(f, 4) = "TEST" Then
Tableau(J) = f
End If
Wend
If UBound(Tableau) > 2 Then
Dim K As Integer
For K = 1 To UBound(Tableau) - 4
Kill "C:\22\" & Tableau(K)
Next K
ReDim Tableau(1)
J = 0
End If
End Sub