Private Sub TB_Equipe_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim NomEq As String
'
With Me.TB_Equipe
NomEq = .Text
If NomEq <> "" Then
If IsNumeric(Right(NomEq, 1)) Then
.Text = IIf(Right(NomEq, 1) = "0", "oui", "Eq" & Right(NomEq, 1))
End If
End If
End With
End Sub