XL 2016 Faire un Private sub unique pour plusieurs textbox

Private Sub Joueur_Change()
    Dim joueur As Object
    Set joueur = Me.ActiveControl
    
    If TypeName(joueur) = "TextBox" Then
        Dim joueurText As String
        joueurText = joueur.Text
        
        joueurText = UCase(Mid(joueurText, 1, InStr(1, joueurText, " "))) & _
            Application.Proper(Mid(joueurText, InStr(1, joueurText, " ") + 1))
        
        joueur.Text = joueurText
    End If
End Sub

Private Sub Joueur1_Change()
    Call Joueur_Change
End Sub

Private Sub Joueur2_Change()
    Call Joueur_Change
End Sub

Private Sub Joueur3_Change()
    Call Joueur_Change
End Sub

Private Sub Joueur4_Change()
    Call Joueur_Change
End Sub

Private Sub FormatJoueur(ByRef joueur As String)
    joueur = UCase(Mid(joueur, 1, InStr(1, joueur, " "))) & _
        Application.Proper(Mid(joueur, InStr(1, joueur, " ") + 1))
End Sub

Private Sub Joueur1_Change()
    FormatJoueur Joueur1
End Sub

Private Sub Joueur2_Change()
    FormatJoueur Joueur2
End Sub

Private Sub Joueur3_Change()
    FormatJoueur Joueur3
End Sub

Private Sub Joueur4_Change()
    FormatJoueur Joueur4
End Sub