Bonjour,
Suis ces indications :
- Clique droite sur l'onglet concerné
- Choisir l'option "visualiser le code"
- Coller le code ci-dessous
Private Sub Worksheet_Change(ByVal Target As Range)
'MAcro Dan le 08/12/2010
If Not Intersect(Target, Range("B13")) Is Nothing Then
ActiveSheet.Name = Target
End If
End Sub
si ok, merci de ne pas oublier de cliquer sur le V vert pour cloturer le fil
Amicalement