Nom propre en passant par un Module de classe

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("f3:f200")) Is Nothing Then Target = UCase(Target)
End Sub

Private test As Boolean 'déclare la variable test

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("F3:F200")) Is Nothing Then Exit Sub 'si le changement a lieu ailleurs que dans la plage F3:F200, sort de la procédure
If test = True Then Exit Sub 'si la variable test est vraie, sort de la procédure
If Target.Cells.Count > 1 Then Exit Sub 'si plusieurs cellules sélectionnées, sort de la procédure
If Target.Value = "" Then Exit Sub 'si la cellule est effacée, sort de la pocédure
test = True 'définit la variable test
Target.Value = Application.WorksheetFunction.Proper(Target.Value) 'première lettre de chaque mot en majuscule
'target.Value = UCase(Target.Value)'tout en majuscule
test = False 'redéfinit la variable test
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  
'Deux prénom avec & entre les deux
Dim R As Range, t As String
Set R = Intersect(Target, [D:D], Me.UsedRange) 'colonne D
If R Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each R In R 'en cas d'entrées multiples
  t = Application.Trim(Replace(R.Text, "&", "")) 'SUPPRESPACE
  R = Application.Proper(Replace(t, " ", " & ")) 'Nom en Nom Propre
Next

Application.EnableEvents = True

End Sub

Private test As Boolean 'déclare la variable test

Private Sub Worksheet_Change(ByVal Target As Range)
 
'Deux prénom avec & entre les deux
Dim R As Range, t As String
If test = True Then Exit Sub
If Not Intersect(Target, [D:D], Me.UsedRange) Is Nothing Then 'colonne D
    test = True
    For Each cel In Target 'en cas d'entrées multiples
        cel.Value = Application.Trim(Replace(cel.Text, "&", "")) 'SUPPRESPACE
        cel.Value = Application.Proper(Replace(cel.Value, " ", " & ")) 'Nom en Nom Propre
    Next
    test = False
End If


If Not Application.Intersect(Target, Range("F3:F200")) Is Nothing Then 'si le changement a lieu ailleurs que dans la plage F3:F200
    test = True 'définit la variable test
    Target.Value = Application.WorksheetFunction.Proper(Target.Value) 'première lettre de chaque mot en majuscule
    test = False 'redéfinit la variable test
End If
End Sub