Re,
En effet la propriété ListIndex de la ComboBox1 n'est plus valable après le formatage de cette combobox.
Remplace l'ancien code par :
Private LI As Integer 'déclare la variable LI
Private Sub combobox1_change() 'au changement dans la ComboBox1
LI = IIf(LI = 0, Me.ComboBox1.ListIndex + 11, LI) 'définit la ligne LI
ComboBox1 = Format(ComboBox1.Value, "dd/mm/yy") 'formate la ComboBox1
End Sub
Private Sub CommandButton1_Click()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim COL As Integer 'déclare la variable COL (COLonne)
Set O = Worksheets("BD") 'définit l'onglet O
COL = O.Rows(9).Find(Me.ComboBox2.Value, , xlValues, xlWhole).Column 'définit la colonne COL (recherche le valeur exacte de la ComboBox1 dans la ligne 9 de l'onglet O)
O.Cells(LI, COL).Value = Me.TextBox1.Value 'renvoie dans la cellule ligne LI colonne COL de l'onglet O la valeur de la TextBox1
Unload Me 'vide et ferme l'UserForm en cours
End Sub