re MTH, encore je te sollicite :

Sub SauvFeuille()

'Chemin = celui du fichier, à adapter (dois-je mettre ici le dossier où seront sauvegarder mes feuilles ?
'Nom= "FicInterv_xxx" avec xxx= n° intervention, à adapter

Dim Chemin As String, NomFic As String

Chemin = ThisWorkbook.Path & ""
NomFic = Format(Sheets("DI").Range("B6"), "000000")

If NomFic <> "" Then
    'crée une copie de la feuille active
    ActiveSheet.Copy
   
    'Source Silkyroad, permet de retirer le code VBA dans le classeur sauvegardé
    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeN).CodeModule
        .DeleteLines 1, .CountOfLines
    End With
   
    'Bloque les fenêtre d'alerte de l'application
    Application.DisplayAlerts = False
   
    'Format de fichier 56= Excel 97-2003
    ActiveWorkbook.SaveAs Chemin & NomFic, FileFormat:=56
    'Rétablit les fenêtres d'alerte
    Application.DisplayAlerts = True
   
    'Ferme le fichier Actif (qui est le fichier de sauvegarde)
    ActiveWorkbook.Close
End If

End Sub

par contre pour la fonction remise à blanc dans le précédent code , b6 à b13 ça ne fonctionne pas  tout s'enregistre sur ma feuille rapport sans problème mais quand à ma feuille di le numéro s'incrémente parfaitement mais les données reste inscrite

merci encore j'en demande beaucoup