Liste déroulante du noms des onglets

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Address = "$B$6" Then
   temp = ""
   For i = 3 To Sheets.Count
     temp = temp & Sheets(i).Name & ","
   Next i
   Target.Validation.Delete
   Target.Validation.Add xlValidateList, Formula1:=Left(temp, Len(temp) - 1)
 End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$B$6" Then
   Sheets(CStr(Target.Value)).Select
 End If
End Sub