Private Sub CommandButton1_Click()
Me.TextBox3.value = "BTQ N°: " & Me.N_Mag.value & "/" & Me.Cmb_Suite.value & " Du " & Me.Periode_Non_Payer.value & " Au " & DateAdd("m", Me.TextBox1.value, Periode_Non_Payer.value)
Me.TextBox4.value = Me.N_Mag.value & DateAdd("m", Me.TextBox1.value, Periode_Non_Payer.value)