Macro copie d'onglet et renommer avec cellule

Bonjour

voici mon problème : j'ai un fichier dans lequel je souhaite compiler tous les audits qui vont être effectué. Pour cela, la première feuille sert de saisie et une fois la saisie terminée, je souhaite copie la feuille et la renommer avec la date de l'audit (date située en cellule c2).

Ci joint une copie de mon fichier.

Si quelqu'un peut m'aider, je vous en serait reconnaissant.

Cdlt

Alexis

Bonjour,

Une proposition à adapter

A+

La macro marche bien, par contre quand je l'utilise, cela efface ce que j'avais dans mes cellules de la première colonne. Ces cellules vont contenir des questions et leur contenu ne doit pas disparaitre.

Concrètement la macro doit copier l'onglet, lui donner le nom de la cellule C2 et ensuite "nettoyer" les cases C2, C4 et de C7 à D18

En tout cas merci déjà pour la première macro

Alexis

Je vais te laisser deviner ce que j'ai modifié

        With Sheets("grille")
            .Activate
            .Range("C2") = ""
            .Range("C4") = ""
            .Range("C7:D7").Resize(Range("C" & Rows.Count).End(xlUp).Row - 7).ClearContents
        End With

A+

C'est bon je te remercie beaucoup