Sub Change_Code_Name()
Nom = SV1.Name
With Sheets(Nom)
.Parent.VBProject.VBComponents(.CodeName) _
.Properties("_CodeName") = "Nouveau"
End With
Nom = Actuel.Name
With Sheets(Nom)
.Parent.VBProject.VBComponents(.CodeName) _
.Properties("_CodeName") = "Ancien"
End With
Nom = Nouveau.Name
With Sheets(Nom)
.Parent.VBProject.VBComponents(.CodeName) _
.Properties("_CodeName") = "Actuel"
End With
End Sub