Excel : donner des noms aux feuilles à partir de cellules de la première feuille

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then: Exit Sub
test = Format(Range("A1"), "dd-mm-yy")
ActiveSheet.Name = test
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <= Sheets.Count Then
    Sheets(Target.Row).Name = "ce que tu veux " & Target.Value
End If
End Sub

msgbox "salut"

"ce que tu veux " &

Sheets(Target.Row).Name = Target.Value

if target.value <> "" then ...

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i As Integer
  If Target.Column = 1 Then
    For i = Target.Row To Target.Rows.Count + Target.Row
      Cells(i, 2).Value = Cells(i, 1).Value
    Next
  End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If (Target.Row - 1) <= Sheets.Count And Target.Column = 1 And Target.Row <> 1 And Target.Value <> "" Then
        Sheets(Target.Row - 1).Name = Target.Value
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox Target.Address
End Sub