Range par trimestre

Bonsoir à tous

je suis sous Excel 2000
Ma question du soir: ma formule marche bien, mais il doit bien avoir une formule plus simple.
je renseigne avec un userform 3 textbox et il ce classe par trimestre en fonction du N° qui et dans le TextNrt.
voila si quelqu'un a la soluce je le remerci d'avance.
@+
Denis


If TextNrt.Value = 1 Then
ThisWorkbook.Sheets("1er Trim").Activate
ligne = Sheets("1er Trim").Range("A9").End(xlUp).Row + 1
Cells(ligne, 1).Value = txtDate1
Cells(ligne, 2).Value = TextNsm
Cells(ligne, 3).Value = TextNrt
End If


If TextNrt.Value = 2 Then
ThisWorkbook.Sheets("2ème Trim").Activate
ligne = Sheets("2ème Trim").Range("A9").End(xlUp).Row + 1
Cells(ligne, 1).Value = txtDate1
Cells(ligne, 2).Value = TextNsm
Cells(ligne, 3).Value = TextNrt
End If

If TextNrt.Value = 3 Then
ThisWorkbook.Sheets("3ème Trim").Activate
ligne = Sheets("3ème Trim").Range("A9").End(xlUp).Row + 1
Cells(ligne, 1).Value = txtDate1
Cells(ligne, 2).Value = TextNsm
Cells(ligne, 3).Value = TextNrt
End If

If TextNrt.Value = 4 Then
ThisWorkbook.Sheets("4ème Trim").Activate
ligne = Sheets("4ème Trim").Range("A9").End(xlUp).Row + 1
Cells(ligne, 1).Value = txtDate1
Cells(ligne, 2).Value = TextNsm
Cells(ligne, 3).Value = TextNrt
End If


Unload UserForm1

End Sub