[Résolu] Message d'erreur sur une macro pour renommer onglet suivant cellule

Private Sub Worksheet_Change(ByVal Target As Range)
    'MAcro Dan le 08/12/2010
    If Not Intersect(Target, Range("E7")) Is Nothing and Target.value<>"" Then
    ActiveSheet.Name = Target
    End If
    End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    'MAcro Dan le 08/12/2010
on error resume next
    If Not Intersect(Target, Range("E7")) Is Nothing Then
    ActiveSheet.Name = Target
    End If
    End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
     'MAcro Dan le 08/12/2010
 On Error Resume Next
     If Not Intersect(Target, Range("E7")) Is Nothing Then
     ActiveSheet.Name = Target      
     End If
     End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
     'MAcro Dan le 08/12/2010
if [E7]<>"" then exit sub
 On Error Resume Next
     If Not Intersect(Target, Range("E7")) Is Nothing Then
     ActiveSheet.Name = Target      
     End If
     End Sub