Macro enrengister sur un autre onglet

Bonjour,

je voudrais une macro qui enregistre la feuille modèle et la copie sur autorisation , avec contrôle des doublons si possible .

Et une macro pour supprimer tout les montant de l'onglet base de la ligne 3 a 23 , avec un message d’avertissement "Enregistrer avant suppression"

Bonjour toutes et tous

Note: j'ai testé en enregistrant ton classeur (en acceptant les macros) .xlsm en y ajoutant un bouton de commande Activex et y inclus ce code ci-dessous

le code pour la deuxième requête avec une demande de confirmation pour supprimer la plage de D3 à D23 de ta feuille Base

Private Sub CommandButton1_Click()
On Error GoTo plouf  ' en cas d'erreur (2) - pas obligatoire
With Sheets("Base")  ' on sélectionne la feuille
 If MsgBox("Enregistrer avant suppression!", vbYesNoCancel + vbExclamation + vbDefaultButton2, "Demande de confirmation") = vbYes Then
        Range("D3:D23").ClearContents
        MsgBox "Le contenu  de  3 à 23 a été effacé !" ' pas obligatoire (1)
        Else                                ' pas obligatoire (1)
        MsgBox "Annulé par l'utilisateur!"  ' pas obligatoire (suite 1)
    End If
    End With
plouf:    Exit Sub                ' en cas d'erreur (suite 2) - pas obligatoire
End Sub

tu peux t'inspirer du code de Frangy ici Clic-ici (code de Frangy de ce forum)

Sub dupliquer()
Dim NomFeuille As String
Dim Reponse As Integer
    Application.DisplayAlerts = False
      Worksheets("Modéle").Copy After:=Worksheets("Modéle")
    'Worksheets("tcd").Copy After:=Worksheets("tcd")
    Application.DisplayAlerts = True
    Reponse = MsgBox("La feuille " & ActiveSheet.Name & " a été créée." & Chr(10) & "Voulez-vous renommer cette nouvelle feuille ?", vbYesNo)
    If Reponse = vbYes Then
        NomFeuille = InputBox("Veuillez indiquer le nouveau nom", "SAISIE DU NOM DE FEUILLE", ActiveSheet.Name)
        If NomFeuille <> "" Then ActiveSheet.Name = NomFeuille
    End If
End Sub

Pour les doublons, je n'ai pas trop bien compris

Note: ta feuille Modéle s'écrit : Modèle (l'accent -;) )

crdlt,

André