Salut j'ai un problème avec ce programme

boite1
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
ligne = Sheets("feuil2").[a65000].End(xlUp).Row + 1
Sheets("feuil2").Cells(ligne, 1) = UCase(toto.nom)
Sheets("feuil2").Cells(ligne, 2) = UCase(toto.prenom)
Sheets("feuil2").Cells(ligne, 3) = toto.datere
Sheets("feuil2").Cells(ligne, 4) = Application.Proper(toto.sexe)
End Sub
boite2
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub UserForm_Initialize()
    Sheets("feuil2").Select
    resultat.ListBox2.ColumnCount = 3 
    resultat.ListBox2.ColumnWidths = "80,80" 
    resultat.ListBox2.RowSource = "A2:C" & [B65000].End(xlUp).Row
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub ListBox2_Click()
 
End Sub
 
Private Sub CommandButton1_Click()
 
    If reçu.Value = True Then
       Cells(ligne, 5) = "O"
    Else
        Cells(ligne, 5) = "N"
    End If
    If echec.Value = True Then
       Cells(ligne, 6) = "O"
    Else
        Cells(ligne, 6) = "N"
    End If
End Sub
Quels instructions manquent afin que je puisse faire un lien entre les différentes instructions.

Merci