Dim A As Integer
A=CInt(Split(Me.TextBox1.Value,"/")(2))
MsgBox A 'juste pour voir, à supprimer
Me.TextBox2.Value = (Split(Me.TextBox1.Value, "/")(2))
If Left(Me.TextBox1.Value, 4) = "3101" Then Me.TextBox2.Value = "A"
If Left(Me.TextBox1.Value, 4) = "3102" Then Me.TextBox2.Value = "B"
If Left(Me.TextBox1.Value, 4) = "3103" Then Me.TextBox2.Value = "C"
If Left(Me.TextBox1.Value, 4) = "3104" Then Me.TextBox2.Value = "D"