Microsoft 365 Documenter la cellule sélectionnée à partir d'un useform

Re-Bonjour,

Pour finaliser mon projet, je souhaiterai que mon useform ci-dessous viennent documenter mes cellules en fonction de mes choix.

Actuellement, elle se trouve dans un module mais ne fait pas le lien avec les cellules. Quand je sélectionne ma cellule et que j'effectue un choix, elle n'incrémente pas cette cellule (sans doute à cause de la dernière partie de mon code).

Private Sub UserForm_Initialize()
With ListBox1
.ColumnCount = 1
.ColumnWidths = "200"
End With
Me.ListBox1.List = [aliments].Value
End Sub

Private Sub TextBox1_Change()
Me.ListBox1.Clear
i = 0
For Each c In Application.Index([aliments], , 0)
If UCase(c) Like "*" & UCase(Me.TextBox1) & "*" Then
Me.ListBox1.AddItem
Me.ListBox1.List(i, 0) = c.Offset(0, 0).Value
i = i + 1
End If
Next c
End Sub

Private Sub CommandButton1_Click()

flag = True
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
flag = False
End If
Next i
If flag Then
MsgBox "Choisir un article !"
Exit Sub
End If

der = Range("A" & Application.Rows.Count).End(xlUp).Row + 1
Range("A1").Value = Me.ListBox1.Column(0)
Me.Hide

End Sub

Mon fichier en pj.
si vous cliquez dans la journée du lundi sur une des cellules "D" "O" ou "Z" vous verrez que mon useform se déclenche bien mais quand je sélectionne un critère, il ne vient pas remplir la cellule.
Petite précision, je souhaiterai plutôt qu'il affiche la valeur en colonne "B" de l'onglet "Liste useform"

Drav.