bonjour , je voudrais utiliser la même formule que celle d'en haut(
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B4")) Is Nothing Then
ActiveSheet.Name = Range("B4")
End If
End Sub)
Mais utiliser le format date comment je peut le faire svp.
Merci