Aide sur macro userform

Bonjour,

J'ai à nouveau besoin de votre aide !!!
je voudrais inclure une donnée dans mon fichier, avec cette macro ca fonctionne mais le soucis c'est que je voudrais mettre d'autres infos en dessous en "A22" tjs avec l'userform
en fait la mes info vont tjs sur la cellule A21

merci pour votre aide !

Private Sub ListBox1_Change()
I = ListBox1.ListIndex
D = Application.Index(Sheets("DONNEES").Range("A1:A100"), I + 1, 1)
Sheets("DONNEES").Range("C1").Value = D
Sheets("Fiche type").Range("A21").Value = D
ListBox2.RowSource = "Modèles"
ListBox3.RowSource = ""
End Sub