Private Sub ComboBox1_Change()
N = Application.Match(FrmAvenant.ComboBox1, Range("C:C"), 0)
FrmAvenant.TxtNom = Cells(N, "A")
FrmAvenant.TextBox1 = Cells(N, "B")
End Sub
Private Sub CommandButton1_Click()
N = Application.Match(FrmAvenant.ComboBox1, Range("C:C"), 0)
If FrmAvenant.NoAvenant = "Avenant 01" Then
Cells(N, "D") = FrmAvenant.Durée
Cells(N, "E") = FrmAvenant.Montant
ElseIf FrmAvenant.NoAvenant = "Avenant 02" Then
Cells(N, "F") = FrmAvenant.Durée
Cells(N, "G") = FrmAvenant.Montant
End If
End Sub