Private Sub CommandButton1_Click()
Dim R As Range 'déclare la variable R (Recherche)
Dim PA As String 'déclare la variable PA (Première Adresse)
Dim IND As String 'déclare la variable IND (INDice)
Set R = O.Columns(1).Find(Me.ComboBox1.Value, , xlValues, xlWhole) 'définit la recherche R (recherche la valeur de la ComboBox1 dans la colonne 1 (=A))
If Not R Is Nothing Then 'condition : si il existe au moins une occurrence trouvée
PA = R.Address 'définit l'adresse PA de la première occurrence trouvée
Do 'exécute
If CStr(R.Offset(0, 1).Value) = Me.ComboBox2.Value Then 'condition 2 : si la valeur en colonne B correspond à la valeur de la ComboBox2
IND = R.Offset(0, 2).Value 'définit l'indice IND
Exit Do 'sort de la boucle
End If 'fin de la condition
Set R = O.Columns(1).FindNext(R) 'redéfinit la recherche R (occurrence suivante)
Loop While Not R Is Nothing And R.Address <> PA 'boucle tant qu'il existe de nouvelles occurrence ailleurs qu'en PA
End If 'fin de la condition 1
O.Range("E1").Value = IND 'récupère l'indice IND dans la cellule E1
Unload Me 'vide et ferme l'UserForm
End Sub