Userform

Bonjour à toutes et à tous,
Excel 2003. J'ai un userform qui fonctionne très bien. Lorsque je click sur
le bouton enregistrement tous les contenus des txtboxs, combo..etc.. vont
s'écrire sur une feuille BDD.
Je souhaiterais qu'en même temps le contenu de certaines box soient écrites
sur une autre feuille mais là ça coince !
exemple (début d'enregistrement) :
Sheets("bdd").Select
' partie enregistrement, Bouton Enregistrer

On Error Resume Next
With Range("a1")
'===== infos sur la personne déclarante Page 1 =====
.End(xlDown)(2, 1).Value = "2008-" &
Sheets("BDD").Range("A3").End(xlDown).Row - 1
.End(xlDown)(1, 2).Value = CDate(TxtDateCandidature.Value)
.End(xlDown)(1, 3).Value = TxtNomCandidat.Value
.........................
' fin
.End(xlDown)(1, 35).Value = TxtDatePrévue.Value
End With
Sheets("DépartsPrévus").Select
On Error Resume Next
With Range("a1")
.End(xlDown)(2, 1).Value = "2008-" &
Sheets("BDD").Range("A3").End(xlDown).Row - 1
.End(xlDown)(1, 2).Value = txtNomAgentParti.Value
.End(xlDown)(1, 3).Value = TxtPrénomAgentParti.Value
.End(xlDown)(1, 4).Value = TxtDatePrévue.Value
.End(xlDown)(1, 5).Value = CboFonction.Value
.End(xlDown)(1, 6).Value = CboMotifDépart.Value
End With
......Rien ne se passe !!
Ou est l'erreur ?
Merci d'avance
Michel