Private Sub CommandButton1_Click()
Dim nameOriginal As String
Dim nameCopy As String
nameOriginal = "Budget interne"
nameCopy = "Budget client"
Dim wsOriginal As Worksheet
Dim wsCopy As Worksheet
Set wsOriginal = Sheets(nameOriginal)
Set wsCopy = Sheets(nameCopy)
wsCopy.Delete
wsOriginal.Copy after:=wsOriginal
wsCopy.Name = nameCopy
End Sub