ajout dans ComboBox

  Dim t As String
  t = InputBox("Entrez la nouvelle donnée:", "Nouvelle donnée")
  If Trim(t)<>"" Then Me.ComboBox1.AddItem t

Private Sub CommandButton1_Click()
[COLOR="SeaGreen"]Dim Code As String
Dim NextLine As Byte
[/COLOR]    
  Dim t As String

  t = InputBox("Entrez la nouvelle donnée:", "Nouvelle donnée")
  If Trim(t) <> "" Then Me.ComboBox1.AddItem t

  
 [COLOR="SeaGreen"] Code = "Sub UserForm_Activate()" & vbCrLf
  Code = Code & "Me.ComboBox1.AddItem t" & vbCrLf
  Code = Code & "End Sub" & vbCrLf


  With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
    NextLine = .CountOfLines + 1
    .InsertLines NextLine, Code
  End With[/COLOR]

End Sub