Sauf erreur de ma part, le format personnalisé est prévu pour les nombres. Si tu écris 51 on pourra le faire avec le format personnalisé suivant: "ANG-"Standard. Ou bien si tu veux l'avoir dans une autre cellule affiché comme tu veux, il faut passer par une formule suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Target.Row > 1 Then Exit Sub
If Not IsEmpty(Target) Then
Application.EnableEvents = False
Target.Value = Left(Target.Text, 3) & "-" & Right(Target.Text, 2)
Application.EnableEvents = True
End If
End Sub