Bonjour Boby,
En Userform1_Initialize enlève le chargement des combo2 et 3
Perso je ferai comme ceci avec Match et nom de feuil soit ici Feuil8 se qui permet de les déplacer ou renommer sans faire de bug.
Private Sub ComboBox1_Change()
Ligne = Application.Match(ComboBox1, Feuil8.[A:A], 0)
Me.ComboBox3 = Feuil8.Cells(Ligne, 18)
Me.ComboBox2 = Feuil8.Cells(Ligne, 22)
End Sub
Bruno