Saisir un texte pré défini dans la colonne P lors de selection combobox

Bonjour,

Pouvez-vous svp m'aider pour la suite de ma macro?

J'ai déja édité l'userform et alimenté ma Combobox par la colonne A (Références).

Je cherche maintenant à écrire un texte pré-défini(-1 FULL MDR) dans la colonne P lorsque cette référence est selectionnée.

Merci.

**************

Private Sub UserForm_Initialize()

Dim Plage As String
With Sheets("ClassI")
Plage = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Address

End With

ComboBox1.RowSource = "ClassI!" & Plage

End Sub

Private Sub ComboBox1_Click()

If ComboBox1.ListIndex <> -1 Then

' TextBox1 = Sheets("ClassI").Range("P" & ComboBox1.ListIndex + 2).Value

End If

End Sub