PB insertion combobox sous conditions d'une case vide

bonjour,

je souhaiterai alimenter un combobox avec les données de la colonne "B" Numéro" a condition que la colonne "E" soit vide

et y insérer la date de retour en fonction du numéro choisit selon le choix du combobox (userform2)

pour une prise et un retour de clefs.

mais la je sèche, j'ai besoin d'aide

j'arrive bien a afficher les numéros dans la combobox mais pas sous conditions

Bonjour Maxxx62

Voici avec les conditions

Private Sub UserForm_Initialize()
  Dim Lig As Long
  TextBox1.Value = Format(Now(), "mm/dd/yyyy-hh:mm")
  With Sheets("gestion des clefs")
    For Lig = 2 To .Range("B" & Rows.Count).End(xlUp).Row
    If .Range("B" & Lig) <> "" And .Range("E" & Lig) = "" Then
      ComboBox1 = .Range("B" & Lig)
      If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem .Range("B" & Lig)
    End If
    Next Lig
  End With
End Sub

Pensez à utiliser des noms de variables explicites

A+

merci c 'est impeccable , par contre comment faire pour rentrer la date de retour en fonction du numéro choisit?