XL 2013 Rajouter une ligne sous un cellule déterminer

Bonjour a tous, j'ai besoin d'aide après plusieurs recherche sur le forum, je ne parvient pas a trouver une macro pour effectuer ce que j'ai besoin,

En premier lieu, J'ai un tableau pour les affichage et et trois formulaire de saisi de donné. 1e formulaire c'est la saisi de l'affichage. Le 2e formulaire on reprend un affichage et on rajoute les personne qui on appliquer sur l'affichage, le problème est que je veut qu'il rajoute des ligne sous l'affichage pour chaque noms des personnes qui ont appliquer.

En deuxième lieu, la 3e formulaire c'est le résultat des candidat choisi, dans la liste déroulante des numéro d'employés je veux qui affiche les candidat qui on appliquer sur l'affichage (exemple affichage 1578(A3) I3 a I6).

Voici le code pour modifier la ligne 1578 que j'utilise.

Dim consulte As Range
Dim texbox As Integer
Dim combobox As Integer

Private Sub b_consult_Click()
Sheets("Affichage").Activate
Set consulte = Range([a2], [B65536].End(xlUp)).Find(What:=Me.ComboBox1, LookIn:=xlValues, lookat:=xlWhole)
If Not consulte Is Nothing Then
Me.TextBox1 = consulte.Offset(0, 1).Value
Me.ComboBox2 = consulte.Offset(0, 7).Value
Me.TextBox2 = consulte.Offset(0, 9).Value
Me.TextBox3 = consulte.Offset(0, 8).Value

Else: MsgBox "Ce code n'existe pas dans la liste."
End If
End Sub

Private Sub CommandButton2_Click()
Sheets("Affichage").Activate
With consulte
.Value = Me.ComboBox1
.Offset(0, 0).Value = Me.ComboBox1 'Numéro affichage
.Offset(0, 1).Value = Me.TextBox1 'Numéro employé
.Offset(0, 7).Value = Me.ComboBox2 'Nom employé


End With
Range("A2").Select
End Sub

Merci de votre aide

dede869