Mon userform sur excel se ferme au lancement

voici mon code

Public mois As String
Public cellule As String

Private Sub CheckBoxp23_Click()

End Sub

Private Sub CheckBoxp27_Click()

End Sub

Private Sub CheckBoxp9_Click()

End Sub

Private Sub CommandButton2_Click()
UserFormbase.Show
End Sub

Private Sub CommandButton3_Click()
Worksheets(14).Activate
Unload UserFormpaye
End Sub

Private Sub TextBoxjour18_Change()

End Sub

Private Sub UserForm_Activate()
affpaye
'Dim madate As Date
'Dim dmois As String
'madate = Date
'dmois = Month(madate)
'If dmois = 1 Then boutjanv_Click
'If dmois = 2 Then boutfev_Click
'If dmois = 3 Then boutmars_Click
'If dmois = 4 Then boutavril_Click
'If dmois = 5 Then boutmai_Click
'If dmois = 6 Then boutjuin_Click
'If dmois = 7 Then boutjuillet_Click
'If dmois = 8 Then boutaout_Click
'If dmois = 9 Then boutsept_Click
'If dmois = 10 Then boutoct_Click
'If dmois = 11 Then boutnov_Click
'If dmois = 12 Then boutdec_Click

End Sub

Private Sub boutdec_Click()
TextBoxmois.Text = " DECEMBRE"
mois = "dec!"
affpaye
remplissagetous
End Sub

Private Sub boutnov_Click()
TextBoxmois.Text = " NOVEMBRE"
mois = "nov!"
affpaye
remplissagetous
End Sub

Private Sub boutoct_Click()
TextBoxmois.Text = " OCTOBRE"
mois = "oct!"
affpaye
remplissagetous
End Sub

Private Sub boutsept_Click()
TextBoxmois.Text = " SEPT"
mois = "sept!"
affpaye
remplissagetous
End Sub

Private Sub boutaout_Click()
TextBoxmois.Text = " AOUT"
mois = "aout!"
affpaye
remplissagetous
End Sub

Private Sub boutjuillet_Click()
TextBoxmois.Text = " JUILLET"
mois = "juillet!"
affpaye
remplissagetous
End Sub

Private Sub boutjuin_Click()
TextBoxmois.Text = " JUIN"
mois = "juin!"
affpaye
remplissagetous
End Sub

Private Sub boutmai_Click()
TextBoxmois.Text = " MAI"
mois = "mai!"
affpaye
remplissagetous
End Sub

Private Sub boutavril_Click()
TextBoxmois.Text = " AVRIL"
mois = "avril!"
affpaye
remplissagetous
End Sub

Private Sub boutmars_Click()
TextBoxmois.Text = " MARS"
mois = "mars!"
affpaye
remplissagetous
End Sub

Private Sub boutfev_Click()
TextBoxmois.Text = " FEVRIER"
mois = "fev!"
affpaye
remplissagetous
End Sub

Private Sub boutjanv_Click()
TextBoxmois.Text = " JANVIER"
mois = "janv!"
affpaye
remplissagetous
End Sub
Function remplissagetous()
remplissagedate
remplissagejour
remplissageboxj
remplissagepanier
remplissagenuit
remplissagerepas
remplissageta
remplissagetb
remplissagem
remplissagecom
remplissageaa
remplissageab
remplissageag
End Function
Function remplissagedate()
cellule = mois + "a2"
TextBoxdate1.ControlSource = cellule
cellule = mois + "a3"
TextBoxdate2.ControlSource = cellule
cellule = mois + "a4"
TextBoxdate3.ControlSource = cellule
cellule = mois + "a5"
TextBoxdate4.ControlSource = cellule
cellule = mois + "a6"
TextBoxdate5.ControlSource = cellule
cellule = mois + "a7"
TextBoxdate6.ControlSource = cellule
cellule = mois + "a8"
TextBoxdate7.ControlSource = cellule
cellule = mois + "a9"
TextBoxdate8.ControlSource = cellule
cellule = mois + "a10"
TextBoxdate9.ControlSource = cellule
cellule = mois + "a11"
TextBoxdate10.ControlSource = cellule
cellule = mois + "a12"
TextBoxdate11.ControlSource = cellule
cellule = mois + "a13"
TextBoxdate12.ControlSource = cellule
cellule = mois + "a14"
TextBoxdate13.ControlSource = cellule
cellule = mois + "a15"
TextBoxdate14.ControlSource = cellule
cellule = mois + "a16"
TextBoxdate15.ControlSource = cellule
cellule = mois + "a17"
TextBoxdate16.ControlSource = cellule
cellule = mois + "a18"
TextBoxdate17.ControlSource = cellule
cellule = mois + "a19"
TextBoxdate18.ControlSource = cellule
cellule = mois + "a20"
TextBoxdate19.ControlSource = cellule
cellule = mois + "a21"
TextBoxdate20.ControlSource = cellule
cellule = mois + "a22"
TextBoxdate21.ControlSource = cellule
cellule = mois + "a23"
TextBoxdate22.ControlSource = cellule
cellule = mois + "a24"
TextBoxdate23.ControlSource = cellule
cellule = mois + "a25"
TextBoxdate24.ControlSource = cellule
cellule = mois + "a26"
TextBoxdate25.ControlSource = cellule
cellule = mois + "a27"
TextBoxdate26.ControlSource = cellule
cellule = mois + "a28"
TextBoxdate27.ControlSource = cellule
cellule = mois + "a29"
TextBoxdate28.ControlSource = cellule
cellule = mois + "a30"
TextBoxdate29.ControlSource = cellule
cellule = mois + "a31"
TextBoxdate30.ControlSource = cellule
cellule = mois + "a32"
TextBoxdate31.ControlSource = cellule

End Function
Function remplissagejour()
cellule = mois + "b2"
TextBoxjour1.ControlSource = cellule
cellule = mois + "b3"
TextBoxjour2.ControlSource = cellule
cellule = mois + "b4"
TextBoxjour3.ControlSource = cellule
cellule = mois + "b5"
TextBoxjour4.ControlSource = cellule
cellule = mois + "b6"
TextBoxjour5.ControlSource = cellule
cellule = mois + "b7"
TextBoxjour6.ControlSource = cellule
cellule = mois + "b8"
TextBoxjour7.ControlSource = cellule
cellule = mois + "b9"
TextBoxjour8.ControlSource = cellule
cellule = mois + "b10"
TextBoxjour9.ControlSource = cellule
cellule = mois + "b11"
TextBoxjour10.ControlSource = cellule
cellule = mois + "b12"
TextBoxjour11.ControlSource = cellule
cellule = mois + "b13"
TextBoxjour12.ControlSource = cellule
cellule = mois + "b14"
TextBoxjour13.ControlSource = cellule
cellule = mois + "b15"
TextBoxjour14.ControlSource = cellule
cellule = mois + "b16"
TextBoxjour15.ControlSource = cellule
cellule = mois + "b17"
TextBoxjour16.ControlSource = cellule
cellule = mois + "b18"
TextBoxjour17.ControlSource = cellule
cellule = mois + "b19"
TextBoxjour18.ControlSource = cellule
cellule = mois + "b20"
TextBoxjour19.ControlSource = cellule
cellule = mois + "b21"
TextBoxjour20.ControlSource = cellule
cellule = mois + "b22"
TextBoxjour21.ControlSource = cellule
cellule = mois + "b23"
TextBoxjour22.ControlSource = cellule
cellule = mois + "b24"
TextBoxjour23.ControlSource = cellule
cellule = mois + "b25"
TextBoxjour24.ControlSource = cellule
cellule = mois + "b26"
TextBoxjour25.ControlSource = cellule
cellule = mois + "b27"
TextBoxjour26.ControlSource = cellule
cellule = mois + "b28"
TextBoxjour27.ControlSource = cellule
cellule = mois + "b29"
TextBoxjour28.ControlSource = cellule
cellule = mois + "b30"
TextBoxjour29.ControlSource = cellule
cellule = mois + "b31"
TextBoxjour30.ControlSource = cellule
cellule = mois + "b32"
TextBoxjour31.ControlSource = cellule

End Function
Function remplissageboxj()
cellule = mois + "c2"
CheckBoxj1.ControlSource = cellule
cellule = mois + "c3"
CheckBoxj2.ControlSource = cellule
cellule = mois + "c4"
CheckBoxj3.ControlSource = cellule
cellule = mois + "c5"
CheckBoxj4.ControlSource = cellule
cellule = mois + "c6"
CheckBoxj5.ControlSource = cellule
cellule = mois + "c7"
CheckBoxj6.ControlSource = cellule
cellule = mois + "c8"
CheckBoxj7.ControlSource = cellule
cellule = mois + "c9"
CheckBoxj8.ControlSource = cellule
cellule = mois + "c10"
CheckBoxj9.ControlSource = cellule
cellule = mois + "c11"
CheckBoxj10.ControlSource = cellule
cellule = mois + "c12"
CheckBoxj11.ControlSource = cellule
cellule = mois + "c13"
CheckBoxj12.ControlSource = cellule
cellule = mois + "c14"
CheckBoxj13.ControlSource = cellule
cellule = mois + "c15"
CheckBoxj14.ControlSource = cellule
cellule = mois + "c16"
CheckBoxj15.ControlSource = cellule
cellule = mois + "c17"
CheckBoxj16.ControlSource = cellule
cellule = mois + "c18"
CheckBoxj17.ControlSource = cellule
cellule = mois + "c19"
CheckBoxj18.ControlSource = cellule
cellule = mois + "c20"
CheckBoxj19.ControlSource = cellule
cellule = mois + "c21"
CheckBoxj20.ControlSource = cellule
cellule = mois + "c22"
CheckBoxj21.ControlSource = cellule
cellule = mois + "c23"
CheckBoxj22.ControlSource = cellule
cellule = mois + "c24"
CheckBoxj23.ControlSource = cellule
cellule = mois + "c25"
CheckBoxj24.ControlSource = cellule
cellule = mois + "c26"
CheckBoxj25.ControlSource = cellule
cellule = mois + "c27"
CheckBoxj26.ControlSource = cellule
cellule = mois + "c28"
CheckBoxj27.ControlSource = cellule
cellule = mois + "c29"
CheckBoxj28.ControlSource = cellule
cellule = mois + "c30"
CheckBoxj29.ControlSource = cellule
cellule = mois + "c31"
CheckBoxj30.ControlSource = cellule
cellule = mois + "c32"
CheckBoxj31.ControlSource = cellule
End Function
Function remplissagepanier()
cellule = mois + "d2"
CheckBoxp1.ControlSource = cellule
cellule = mois + "d3"
CheckBoxp2.ControlSource = cellule
cellule = mois + "d4"
CheckBoxp3.ControlSource = cellule
cellule = mois + "d5"
CheckBoxp4.ControlSource = cellule
cellule = mois + "d6"
CheckBoxp5.ControlSource = cellule
cellule = mois + "d7"
CheckBoxp6.ControlSource = cellule
cellule = mois + "d8"
CheckBoxp7.ControlSource = cellule
cellule = mois + "d9"
CheckBoxp8.ControlSource = cellule
cellule = mois + "d10"
CheckBoxp9.ControlSource = cellule
cellule = mois + "d11"
CheckBoxp10.ControlSource = cellule
cellule = mois + "d12"
CheckBoxp11.ControlSource = cellule
cellule = mois + "d13"
CheckBoxp12.ControlSource = cellule
cellule = mois + "d14"
CheckBoxp13.ControlSource = cellule
cellule = mois + "d15"
CheckBoxp14.ControlSource = cellule
cellule = mois + "d16"
CheckBoxp15.ControlSource = cellule
cellule = mois + "d17"
CheckBoxp16.ControlSource = cellule
cellule = mois + "d18"
CheckBoxp17.ControlSource = cellule
cellule = mois + "d19"
CheckBoxp18.ControlSource = cellule
cellule = mois + "d20"
CheckBoxp19.ControlSource = cellule
cellule = mois + "d21"
CheckBoxp20.ControlSource = cellule
cellule = mois + "d22"
CheckBoxp21.ControlSource = cellule
cellule = mois + "d23"
CheckBoxp22.ControlSource = cellule
cellule = mois + "d24"
CheckBoxp23.ControlSource = cellule
cellule = mois + "d25"
CheckBoxp24.ControlSource = cellule
cellule = mois + "d26"
CheckBoxp25.ControlSource = cellule
cellule = mois + "d27"
CheckBoxp26.ControlSource = cellule
cellule = mois + "d28"
CheckBoxp27.ControlSource = cellule
cellule = mois + "d29"
CheckBoxp28.ControlSource = cellule
cellule = mois + "d30"
CheckBoxp29.ControlSource = cellule
cellule = mois + "d31"
CheckBoxp30.ControlSource = cellule
cellule = mois + "d32"
CheckBoxp31.ControlSource = cellule
End Function
Function remplissagenuit()
cellule = mois + "e2"
CheckBoxn1.ControlSource = cellule
cellule = mois + "e3"
CheckBoxn2.ControlSource = cellule
cellule = mois + "e4"
CheckBoxn3.ControlSource = cellule
cellule = mois + "e5"
CheckBoxn4.ControlSource = cellule
cellule = mois + "e6"
CheckBoxn5.ControlSource = cellule
cellule = mois + "e7"
CheckBoxn6.ControlSource = cellule
cellule = mois + "e8"
CheckBoxn7.ControlSource = cellule
cellule = mois + "e9"
CheckBoxn8.ControlSource = cellule
cellule = mois + "e10"
CheckBoxn9.ControlSource = cellule
cellule = mois + "e11"
CheckBoxn10.ControlSource = cellule
cellule = mois + "e12"
CheckBoxn11.ControlSource = cellule
cellule = mois + "e13"
CheckBoxn12.ControlSource = cellule
cellule = mois + "e14"
CheckBoxn13.ControlSource = cellule
cellule = mois + "e15"
CheckBoxn14.ControlSource = cellule
cellule = mois + "e16"
CheckBoxn15.ControlSource = cellule
cellule = mois + "e17"
CheckBoxn16.ControlSource = cellule
cellule = mois + "e18"
CheckBoxn17.ControlSource = cellule
cellule = mois + "e19"
CheckBoxn18.ControlSource = cellule
cellule = mois + "e20"
CheckBoxn19.ControlSource = cellule
cellule = mois + "e21"
CheckBoxn20.ControlSource = cellule
cellule = mois + "e22"
CheckBoxn21.ControlSource = cellule
cellule = mois + "e23"
CheckBoxn22.ControlSource = cellule
cellule = mois + "e24"
CheckBoxn23.ControlSource = cellule
cellule = mois + "e25"
CheckBoxn24.ControlSource = cellule
cellule = mois + "e26"
CheckBoxn25.ControlSource = cellule
cellule = mois + "e27"
CheckBoxn26.ControlSource = cellule
cellule = mois + "e28"
CheckBoxn27.ControlSource = cellule
cellule = mois + "e29"
CheckBoxn28.ControlSource = cellule
cellule = mois + "e30"
CheckBoxn29.ControlSource = cellule
cellule = mois + "e31"
CheckBoxn30.ControlSource = cellule
cellule = mois + "e32"
CheckBoxn31.ControlSource = cellule
End Function
Function remplissagerepas()
cellule = mois + "f2"
CheckBoxr1.ControlSource = cellule
cellule = mois + "f3"
CheckBoxr2.ControlSource = cellule
cellule = mois + "f4"
CheckBoxr3.ControlSource = cellule
cellule = mois + "f5"
CheckBoxr4.ControlSource = cellule
cellule = mois + "f6"
CheckBoxr5.ControlSource = cellule
cellule = mois + "f7"
CheckBoxr6.ControlSource = cellule
cellule = mois + "f8"
CheckBoxr7.ControlSource = cellule
cellule = mois + "f9"
CheckBoxr8.ControlSource = cellule
cellule = mois + "f10"
CheckBoxr9.ControlSource = cellule
cellule = mois + "f11"
CheckBoxr10.ControlSource = cellule
cellule = mois + "f12"
CheckBoxr11.ControlSource = cellule
cellule = mois + "f13"
CheckBoxr12.ControlSource = cellule
cellule = mois + "f14"
CheckBoxr13.ControlSource = cellule
cellule = mois + "f15"
CheckBoxr14.ControlSource = cellule
cellule = mois + "f16"
CheckBoxr15.ControlSource = cellule
cellule = mois + "f17"
CheckBoxr16.ControlSource = cellule
cellule = mois + "f18"
CheckBoxr17.ControlSource = cellule
cellule = mois + "f19"
CheckBoxr18.ControlSource = cellule
cellule = mois + "f20"
CheckBoxr19.ControlSource = cellule
cellule = mois + "f21"
CheckBoxr20.ControlSource = cellule
cellule = mois + "f22"
CheckBoxr21.ControlSource = cellule
cellule = mois + "f23"
CheckBoxr22.ControlSource = cellule
cellule = mois + "f24"
CheckBoxr23.ControlSource = cellule
cellule = mois + "f25"
CheckBoxr24.ControlSource = cellule
cellule = mois + "f26"
CheckBoxr25.ControlSource = cellule
cellule = mois + "f27"
CheckBoxr26.ControlSource = cellule
cellule = mois + "f28"
CheckBoxr27.ControlSource = cellule
cellule = mois + "f29"
CheckBoxr28.ControlSource = cellule
cellule = mois + "f30"
CheckBoxr29.ControlSource = cellule
cellule = mois + "f31"
CheckBoxr30.ControlSource = cellule
cellule = mois + "f32"
CheckBoxr31.ControlSource = cellule
End Function
Function remplissageta()
cellule = mois + "g2"
CheckBoxt1.ControlSource = cellule
cellule = mois + "g3"
CheckBoxt2.ControlSource = cellule
cellule = mois + "g4"
CheckBoxt3.ControlSource = cellule
cellule = mois + "g5"
CheckBoxt4.ControlSource = cellule
cellule = mois + "g6"
CheckBoxt5.ControlSource = cellule
cellule = mois + "g7"
CheckBoxt6.ControlSource = cellule
cellule = mois + "g8"
CheckBoxt7.ControlSource = cellule
cellule = mois + "g9"
CheckBoxt8.ControlSource = cellule
cellule = mois + "g10"
CheckBoxt9.ControlSource = cellule
cellule = mois + "g11"
CheckBoxt10.ControlSource = cellule
cellule = mois + "g12"
CheckBoxt11.ControlSource = cellule
cellule = mois + "g13"
CheckBoxt12.ControlSource = cellule
cellule = mois + "g14"
CheckBoxt13.ControlSource = cellule
cellule = mois + "g15"
CheckBoxt14.ControlSource = cellule
cellule = mois + "g16"
CheckBoxt15.ControlSource = cellule
cellule = mois + "g17"
CheckBoxt16.ControlSource = cellule
cellule = mois + "g18"
CheckBoxt17.ControlSource = cellule
cellule = mois + "g19"
CheckBoxt18.ControlSource = cellule
cellule = mois + "g20"
CheckBoxt19.ControlSource = cellule
cellule = mois + "g21"
CheckBoxt20.ControlSource = cellule
cellule = mois + "g22"
CheckBoxt21.ControlSource = cellule
cellule = mois + "g23"
CheckBoxt22.ControlSource = cellule
cellule = mois + "g24"
CheckBoxt23.ControlSource = cellule
cellule = mois + "g25"
CheckBoxt24.ControlSource = cellule
cellule = mois + "g26"
CheckBoxt25.ControlSource = cellule
cellule = mois + "g27"
CheckBoxt26.ControlSource = cellule
cellule = mois + "g28"
CheckBoxt27.ControlSource = cellule
cellule = mois + "g29"
CheckBoxt28.ControlSource = cellule
cellule = mois + "g30"
CheckBoxt29.ControlSource = cellule
cellule = mois + "g31"
CheckBoxt30.ControlSource = cellule
cellule = mois + "g32"
CheckBoxt31.ControlSource = cellule
End Function
Function remplissagetb()
cellule = mois + "h2"
CheckBoxtt1.ControlSource = cellule
cellule = mois + "h3"
CheckBoxtt2.ControlSource = cellule
cellule = mois + "h4"
CheckBoxtt3.ControlSource = cellule
cellule = mois + "h5"
CheckBoxtt4.ControlSource = cellule
cellule = mois + "h6"
CheckBoxtt5.ControlSource = cellule
cellule = mois + "h7"
CheckBoxtt6.ControlSource = cellule
cellule = mois + "h8"
CheckBoxtt7.ControlSource = cellule
cellule = mois + "h9"
CheckBoxtt8.ControlSource = cellule
cellule = mois + "h10"
CheckBoxtt9.ControlSource = cellule
cellule = mois + "h11"
CheckBoxtt10.ControlSource = cellule
cellule = mois + "h12"
CheckBoxtt11.ControlSource = cellule
cellule = mois + "h13"
CheckBoxtt12.ControlSource = cellule
cellule = mois + "h14"
CheckBoxtt13.ControlSource = cellule
cellule = mois + "h15"
CheckBoxtt14.ControlSource = cellule
cellule = mois + "h16"
CheckBoxtt15.ControlSource = cellule
cellule = mois + "h17"
CheckBoxtt16.ControlSource = cellule
cellule = mois + "h18"
CheckBoxtt17.ControlSource = cellule
cellule = mois + "h19"
CheckBoxtt18.ControlSource = cellule
cellule = mois + "h20"
CheckBoxtt19.ControlSource = cellule
cellule = mois + "h21"
CheckBoxtt20.ControlSource = cellule
cellule = mois + "h22"
CheckBoxtt21.ControlSource = cellule
cellule = mois + "h23"
CheckBoxtt22.ControlSource = cellule
cellule = mois + "h24"
CheckBoxtt23.ControlSource = cellule
cellule = mois + "h25"
CheckBoxtt24.ControlSource = cellule
cellule = mois + "h26"
CheckBoxtt25.ControlSource = cellule
cellule = mois + "h27"
CheckBoxtt26.ControlSource = cellule
cellule = mois + "h28"
CheckBoxtt27.ControlSource = cellule
cellule = mois + "h29"
CheckBoxtt28.ControlSource = cellule
cellule = mois + "h30"
CheckBoxtt29.ControlSource = cellule
cellule = mois + "h31"
CheckBoxtt30.ControlSource = cellule
cellule = mois + "h32"
CheckBoxtt31.ControlSource = cellule
End Function
Function remplissagem()
cellule = mois + "i2"
ComboBoxm1.ControlSource = cellule
cellule = mois + "i3"
ComboBoxm2.ControlSource = cellule
cellule = mois + "i4"
ComboBoxm3.ControlSource = cellule
cellule = mois + "i5"
ComboBoxm4.ControlSource = cellule
cellule = mois + "i6"
ComboBoxm5.ControlSource = cellule
cellule = mois + "i7"
ComboBoxm6.ControlSource = cellule
cellule = mois + "i8"
ComboBoxm7.ControlSource = cellule
cellule = mois + "i9"
ComboBoxm8.ControlSource = cellule
cellule = mois + "i10"
ComboBoxm9.ControlSource = cellule
cellule = mois + "i11"
ComboBoxm10.ControlSource = cellule
cellule = mois + "i12"
ComboBoxm11.ControlSource = cellule
cellule = mois + "i13"
ComboBoxm12.ControlSource = cellule
cellule = mois + "i14"
ComboBoxm13.ControlSource = cellule
cellule = mois + "i15"
ComboBoxm14.ControlSource = cellule
cellule = mois + "i16"
ComboBoxm15.ControlSource = cellule
cellule = mois + "i17"
ComboBoxm16.ControlSource = cellule
cellule = mois + "i18"
ComboBoxm17.ControlSource = cellule
cellule = mois + "i19"
ComboBoxm18.ControlSource = cellule
cellule = mois + "i20"
ComboBoxm19.ControlSource = cellule
cellule = mois + "i21"
ComboBoxm20.ControlSource = cellule
cellule = mois + "i22"
ComboBoxm21.ControlSource = cellule
cellule = mois + "i23"
ComboBoxm22.ControlSource = cellule
cellule = mois + "i24"
ComboBoxm23.ControlSource = cellule
cellule = mois + "i25"
ComboBoxm24.ControlSource = cellule
cellule = mois + "i26"
ComboBoxm25.ControlSource = cellule
cellule = mois + "i27"
ComboBoxm26.ControlSource = cellule
cellule = mois + "i28"
ComboBoxm27.ControlSource = cellule
cellule = mois + "i29"
ComboBoxm28.ControlSource = cellule
cellule = mois + "i30"
ComboBoxm29.ControlSource = cellule
cellule = mois + "i31"
ComboBoxm30.ControlSource = cellule
cellule = mois + "i32"
ComboBoxm31.ControlSource = cellule

End Function
Function remplissagecom()
cellule = mois + "j2"
TextBoxc1.ControlSource = cellule
cellule = mois + "j3"
TextBoxc2.ControlSource = cellule
cellule = mois + "j4"
TextBoxc3.ControlSource = cellule
cellule = mois + "j5"
TextBoxc4.ControlSource = cellule
cellule = mois + "j6"
TextBoxc5.ControlSource = cellule
cellule = mois + "j7"
TextBoxc6.ControlSource = cellule
cellule = mois + "j8"
TextBoxc7.ControlSource = cellule
cellule = mois + "j9"
TextBoxc8.ControlSource = cellule
cellule = mois + "j10"
TextBoxc9.ControlSource = cellule
cellule = mois + "j11"
TextBoxc10.ControlSource = cellule
cellule = mois + "j12"
TextBoxc11.ControlSource = cellule
cellule = mois + "j13"
TextBoxc12.ControlSource = cellule
cellule = mois + "j14"
TextBoxc13.ControlSource = cellule
cellule = mois + "j15"
TextBoxc14.ControlSource = cellule
cellule = mois + "j16"
TextBoxc15.ControlSource = cellule
cellule = mois + "j17"
TextBoxc16.ControlSource = cellule
cellule = mois + "j18"
TextBoxc17.ControlSource = cellule
cellule = mois + "j19"
TextBoxc18.ControlSource = cellule
cellule = mois + "j20"
TextBoxc19.ControlSource = cellule
cellule = mois + "j21"
TextBoxc20.ControlSource = cellule
cellule = mois + "j22"
TextBoxc21.ControlSource = cellule
cellule = mois + "j23"
TextBoxc22.ControlSource = cellule
cellule = mois + "j24"
TextBoxc23.ControlSource = cellule
cellule = mois + "j25"
TextBoxc24.ControlSource = cellule
cellule = mois + "j26"
TextBoxc25.ControlSource = cellule
cellule = mois + "j27"
TextBoxc26.ControlSource = cellule
cellule = mois + "j28"
TextBoxc27.ControlSource = cellule
cellule = mois + "j29"
TextBoxc28.ControlSource = cellule
cellule = mois + "j30"
TextBoxc29.ControlSource = cellule
cellule = mois + "j31"
TextBoxc30.ControlSource = cellule
cellule = mois + "j32"
TextBoxc31.ControlSource = cellule

End Function
Function remplissageaa()
cellule = mois + "k2"
CheckBoxaa1.ControlSource = cellule
cellule = mois + "k3"
CheckBoxaa2.ControlSource = cellule
cellule = mois + "k4"
CheckBoxaa3.ControlSource = cellule
cellule = mois + "k5"
CheckBoxaa4.ControlSource = cellule
cellule = mois + "k6"
CheckBoxaa5.ControlSource = cellule
cellule = mois + "k7"
CheckBoxaa6.ControlSource = cellule
cellule = mois + "k8"
CheckBoxaa7.ControlSource = cellule
cellule = mois + "k9"
CheckBoxaa8.ControlSource = cellule
cellule = mois + "k10"
CheckBoxaa9.ControlSource = cellule
cellule = mois + "k11"
CheckBoxaa10.ControlSource = cellule
cellule = mois + "k12"
CheckBoxaa11.ControlSource = cellule
cellule = mois + "k13"
CheckBoxaa12.ControlSource = cellule
cellule = mois + "k14"
CheckBoxaa13.ControlSource = cellule
cellule = mois + "k15"
CheckBoxaa14.ControlSource = cellule
cellule = mois + "k16"
CheckBoxaa15.ControlSource = cellule
cellule = mois + "k17"
CheckBoxaa16.ControlSource = cellule
cellule = mois + "k18"
CheckBoxaa17.ControlSource = cellule
cellule = mois + "k19"
CheckBoxaa18.ControlSource = cellule
cellule = mois + "k20"
CheckBoxaa19.ControlSource = cellule
cellule = mois + "k21"
CheckBoxaa20.ControlSource = cellule
cellule = mois + "k22"
CheckBoxaa21.ControlSource = cellule
cellule = mois + "k23"
CheckBoxaa22.ControlSource = cellule
cellule = mois + "k24"
CheckBoxaa23.ControlSource = cellule
cellule = mois + "k25"
CheckBoxaa24.ControlSource = cellule
cellule = mois + "k26"
CheckBoxaa25.ControlSource = cellule
cellule = mois + "k27"
CheckBoxaa26.ControlSource = cellule
cellule = mois + "k28"
CheckBoxaa27.ControlSource = cellule
cellule = mois + "k29"
CheckBoxaa28.ControlSource = cellule
cellule = mois + "k30"
CheckBoxaa29.ControlSource = cellule
cellule = mois + "k31"
CheckBoxaa30.ControlSource = cellule
cellule = mois + "k32"
CheckBoxaa31.ControlSource = cellule
End Function
Function remplissageab()
cellule = mois + "l2"
CheckBoxab1.ControlSource = cellule
cellule = mois + "l3"
CheckBoxab2.ControlSource = cellule
cellule = mois + "l4"
CheckBoxab3.ControlSource = cellule
cellule = mois + "l5"
CheckBoxab4.ControlSource = cellule
cellule = mois + "l6"
CheckBoxab5.ControlSource = cellule
cellule = mois + "l7"
CheckBoxab6.ControlSource = cellule
cellule = mois + "l8"
CheckBoxab7.ControlSource = cellule
cellule = mois + "l9"
CheckBoxab8.ControlSource = cellule
cellule = mois + "l10"
CheckBoxab9.ControlSource = cellule
cellule = mois + "l11"
CheckBoxab10.ControlSource = cellule
cellule = mois + "l12"
CheckBoxab11.ControlSource = cellule
cellule = mois + "l13"
CheckBoxab12.ControlSource = cellule
cellule = mois + "l14"
CheckBoxab13.ControlSource = cellule
cellule = mois + "l15"
CheckBoxab14.ControlSource = cellule
cellule = mois + "l16"
CheckBoxab15.ControlSource = cellule
cellule = mois + "l17"
CheckBoxab16.ControlSource = cellule
cellule = mois + "l18"
CheckBoxab17.ControlSource = cellule
cellule = mois + "l19"
CheckBoxab18.ControlSource = cellule
cellule = mois + "l20"
CheckBoxab19.ControlSource = cellule
cellule = mois + "l21"
CheckBoxab20.ControlSource = cellule
cellule = mois + "l22"
CheckBoxab21.ControlSource = cellule
cellule = mois + "l23"
CheckBoxab22.ControlSource = cellule
cellule = mois + "l24"
CheckBoxab23.ControlSource = cellule
cellule = mois + "l25"
CheckBoxab24.ControlSource = cellule
cellule = mois + "l26"
CheckBoxab25.ControlSource = cellule
cellule = mois + "l27"
CheckBoxab26.ControlSource = cellule
cellule = mois + "l28"
CheckBoxab27.ControlSource = cellule
cellule = mois + "l29"
CheckBoxab28.ControlSource = cellule
cellule = mois + "l30"
CheckBoxab29.ControlSource = cellule
cellule = mois + "l31"
CheckBoxab30.ControlSource = cellule
cellule = mois + "l32"
CheckBoxab31.ControlSource = cellule
End Function
Function remplissageag()
cellule = mois + "m2"
CheckBoxag1.ControlSource = cellule
cellule = mois + "m3"
CheckBoxag2.ControlSource = cellule
cellule = mois + "m4"
CheckBoxag3.ControlSource = cellule
cellule = mois + "m5"
CheckBoxag4.ControlSource = cellule
cellule = mois + "m6"
CheckBoxag5.ControlSource = cellule
cellule = mois + "m7"
CheckBoxag6.ControlSource = cellule
cellule = mois + "m8"
CheckBoxag7.ControlSource = cellule
cellule = mois + "m9"
CheckBoxag8.ControlSource = cellule
cellule = mois + "m10"
CheckBoxag9.ControlSource = cellule
cellule = mois + "m11"
CheckBoxag10.ControlSource = cellule
cellule = mois + "m12"
CheckBoxag11.ControlSource = cellule
cellule = mois + "m13"
CheckBoxag12.ControlSource = cellule
cellule = mois + "m14"
CheckBoxag13.ControlSource = cellule
cellule = mois + "m15"
CheckBoxag14.ControlSource = cellule
cellule = mois + "m16"
CheckBoxag15.ControlSource = cellule
cellule = mois + "m17"
CheckBoxag16.ControlSource = cellule
cellule = mois + "m18"
CheckBoxag17.ControlSource = cellule
cellule = mois + "m19"
CheckBoxag18.ControlSource = cellule
cellule = mois + "m20"
CheckBoxag19.ControlSource = cellule
cellule = mois + "m21"
CheckBoxag20.ControlSource = cellule
cellule = mois + "m22"
CheckBoxag21.ControlSource = cellule
cellule = mois + "m23"
CheckBoxag22.ControlSource = cellule
cellule = mois + "m24"
CheckBoxag23.ControlSource = cellule
cellule = mois + "m25"
CheckBoxag24.ControlSource = cellule
cellule = mois + "m26"
CheckBoxag25.ControlSource = cellule
cellule = mois + "m27"
CheckBoxag26.ControlSource = cellule
cellule = mois + "m28"
CheckBoxag27.ControlSource = cellule
cellule = mois + "m29"
CheckBoxag28.ControlSource = cellule
cellule = mois + "m30"
CheckBoxag29.ControlSource = cellule
cellule = mois + "m31"
CheckBoxag30.ControlSource = cellule
cellule = mois + "m32"
CheckBoxag31.ControlSource = cellule
End Function
Function affpaye()

TextBoxfev.Text = Sheets(15).Range("Af4").Value
TextBoxmars.Text = Sheets(15).Range("Af5").Value
TextBoxavril.Text = Sheets(15).Range("Af6").Value
TextBoxmai.Text = Sheets(15).Range("Af7").Value
TextBoxjuin.Text = Sheets(15).Range("Af8").Value
TextBoxjuillet.Text = Sheets(15).Range("Af9").Value
TextBoxaout.Text = Sheets(15).Range("Af10").Value
TextBoxsept.Text = Sheets(15).Range("Af11").Value
TextBoxoct.Text = Sheets(15).Range("Af12").Value
TextBoxnov.Text = Sheets(15).Range("Af13").Value
TextBoxdec.Text = Sheets(15).Range("Af14").Value
TextBoxjanv2.Text = Sheets(15).Range("Af15").Value
End Function

Bonjour,

S'il n'y a aucun message, il y a des chances que le userform ou le classeur soit corrompu.

Peux-tu partager le classeur en anonymisant les données confidentielles
Pour le partager, clique sur :
https://www.cjoint.com/
Clique sur le bouton "parcourir". Choisis le fichier à partager. Dans le bas de la page, clique sur le bouton "Créer le lien cjoint". Copie le lien affiché et colle-le dans ta réponse.

Daniel

merci voila le fichier j ai modifier les infos importante le reste est sans importance.

https://www.cjoint.com/c/OCroUwCYvIe
 

Bonjour,

J'ai appuyé sur tous les boutons des mois. Ca ne plante pas.

Daniel