Private Sub ComboBox1_Change()
Dim x&
x = Application.Match(CLng(ComboBox1.Value), Feuil1.Range("G:G"), 0)
[A2] = Feuil1.Cells(x, 2)
[B2] = Feuil1.Cells(x, 1)
[E3:G3].Value = Feuil1.Cells(x, 8).Resize(, 3).Value
End Sub
Private Sub Worksheet_Activate()
Dim t, f As Worksheet: Set f = Feuil1...