Microsoft 365 créer un comboBox dans une feuille de mon classeur

Option Explicit

Private Sub ComboBox1_Change()
Application.Goto Sheets(2).Cells(ComboBox1.Value, 1)
End Sub

Private Sub Worksheet_Activate()
ComboBox1.List = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
End Sub

Private Sub ComboBox1_Change()
Dim x&
x = Application.Match(CLng(ComboBox1.Value), Feuil2.Range("K:K"), 0)
[B3] = Feuil2.Cells(x, 1)
[C3] = Feuil2.Cells(x, 5)
[D3] = Feuil2.Cells(x, 7)
[E3:G3].Value = Feuil2.Cells(x, 8).Resize(, 3).Value
End Sub

Private Sub Worksheet_Activate()
Dim t, f As Worksheet: Set f = Feuil2
f.Cells(2, "K").Resize(f.Cells(Rows.Count, 1).End(3).Row).Name = "base"
t = [base].Value
Me.ComboBox1.List = t
End Sub