Private Sub cmdConjug_Click()
 Dim Radical As String, Verbe As String, i As Integer, S As String
 Dim Lignes(): Lignes = Array("je Xe", "tu Xes", "il Xe", "nous Xons", "vous Xez", "ils Xent")
 Verbe = Me.txtVerbe.Text
 If Len(Verbe) >= 4 And Right(Verbe, 2) = "er" And Verbe <> "aller" Then
  Radical = Left(Verbe, Len(Verbe) - 2)
  For i = 0 To 5: S = S & Replace(Lignes(i), "X", Radical) & vbCrLf: Next i
  lblResult.Caption = Left$(S, Len(S) - 2)
 Else
  MsgBox "Vous devez entrer un verbe du premier groupe !", vbOKOnly, "Erreur!"
 End If
End Sub