Salut,
voilà un façon de faire: dans un module standars, je passe par paramètre tes dates et somme du userform:
' ici un module VBA
Option Explicit
Sub copieversmois(dtbox, sumbox)
Dim Last ' dernière cellule de la colonne +1
Dim Mois ' mois en cours en cellule B13
Mois = Month(dtbox)
Set Last = Sheets('archmois').Cells(65536, Mois).End(xlUp)
Last.Offset(1, 0).Value = sumbox
End Sub
et dans ton bouton 'valider':
Private Sub CommandButton1_Click()
Call copieversmois(DateBox, SommeBox)
'**************************************
End Sub
Patrick