VBA copier/collier d'apres liste deroulante

Bonjour

Pour coller la feuille en coller valeur, auriez vous la fonction ?

Oui.

Dans la macro Ajout vous remplacez

    Case Is = 0:
        Sheets("Synthese").Copy after:=Sheets(Sheets.Count)
        ActiveSheet.Name =Activesheet.Range("A2")

Par ceci

Case Is = 0:
        Sheets("Synthese").Copy after:=Sheets(Sheets.Count)
        With ActiveSheet
            .Name = .Range("A2")
            .Range("A2").Validation.Delete
            .Range("A2").CurrentRegion.Copy
            .Range("A2").PasteSpecial Paste:=xlPasteValues
            .Range("A2").PasteSpecial Paste:=xlPasteFormats
        End With

Cordialement