Salut,
Il me semble bizarre ton prob, mais bon les experts en vba auront ptetre une explication rationnelle à te donner,
j'ai réécrit ta macro en mettant les instructions dans un module macro1
Ton Selection change devient:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = [e4]
If Target.Address = "$A$1" Then
macro1
'End Select ça c'était en trop pour cette partie du code en tout cas
End If
End Sub
et là ça semble marcher, hasard ou logique???????
voir fichier joint si correspond à ce que tu voulais obtenir.
steplof