Sub NomFichier()
Dim x As String
x = Range('C6')
ActiveWorkbook.SaveAs Filename:='I:\\fab\\Insertion Automatique\\Modifications\\Archives\\' & x & 'arc', FileFormat:=xlNormal, _
Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False
[size=4][color=#FF0000] Kill 'color][/size]
Workbooks.Open ('I:\\fab\\Insertion Automatique\\Modifications\\suivi application modif IA.xls')
Cells(6, 3) = ''
Cells(8, 3) = ''
Cells(10, 3) = ''
Range('C18:F24').Select
Selection.ClearContents
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub