Sub Macro1()
Dim NF As Integer 'déclare la variable NF (Nom Fichier)
ThisWorkbook.Save 'enregistre le classeur actuel
On Error GoTo fin 'si le fichier n'a pas un nom convertible en chiffre
'définit la variable NF (ancien nom converti +1)
NF = CInt(Mid(ThisWorkbook.Name, 1, Len(ThisWorkbook.Name) - 4)) + 1
ChDir 'C:\\Documents and Settings\\Audrey\\Bureau'
ThisWorkbook.SaveAs (NF & '.xls') 'enregistre sous NF.xls
'********************
Sheets('2005').Cells('A2').Value = Sheets('2005').Cells('L5').Value
'********************
ActiveSheet.Range('B1:B100').ClearContents 'supprime le contenu de certaines cellules (à adapter)
fin:
End Sub