Userform pour remplir 3 feuilles excel

Bonjour,
j'ai un userform qui peut remplir seulement 1 feuille d'excel (4column).
j'aimerais pouvoir remplir 3 feuilles differentes avec ce meme userform on lui rajoutant 5 textbox (donc au total 9 textbox) 4 pour remplir feuil1, 3 pour remplir feuil2, et les 2 restant pour remplir feuil3
PRECISION IMPORTANTE: les données de chacune des feuilles sont differentes
dans mon code ci-dessous c'est les données pour feuil 1
feuil1:nom, prénom,poste,service
feuil2:assurane, taux, taxe
feuil3:rendement, budget
comment je pourrais modifier le code? merci à vous, thanks a lot

Private Sub CmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Feuil1")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'check for a Name
If Trim(Me.txtnompré.Value) = "" Then
Me.txtnompré.SetFocus
MsgBox "Entrer Nom et Prénom"
Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.txtnompré.Value
ws.Cells(iRow, 2).Value = Me.txtnumero.Value
ws.Cells(iRow, 3).Value = Me.liste_poste.Value
ws.Cells(iRow, 4).Value = Me.liste_service.Value

'clear the data
Me.txtnompré.Value = ""
Me.txtnumero.Value = ""
Me.liste_poste.Value = ""
Me.liste_service.Value = ""
End Sub