(VBA) Combobox & Couleur [RÉSOLU]

Private O As Object

Private Sub Userform_initialize()
Set O = Sheets("CETI")
Me.ComboPoste.Column = O.Range("C3:AF3").Value
Me.ComboEmploye.List = O.Range("B6:B" & O.Cells(Application.Rows.Count, 2).End(xlUp).Row).Value
End Sub

Private Sub CmdValider_Click()
With O.Cells(Me.ComboPoste.ListIndex + 6, Me.ComboEmploye.ListIndex + 3)
    .Interior.ColorIndex = 1
    .Font.ColorIndex = 6
    .Value = 1
End With
uload Me
End Sub

Private Sub CmdValider_Click()
ligne = Me.ComboEmploye.ListIndex + 6
colonne = Me.ComboPoste.ListIndex + 3
Cells(ligne, colonne).Value = 1
Cells(ligne, colonne).Interior.Color = RGB(0, 0, 0)
Cells(ligne, colonne).Font.Color = RGB(255, 255, 0)
End Sub