Private Sub Worksheet_Change(ByVal Target As Range)
Dim B As Boolean
With Target
If .Count > 1 Then Exit Sub
If .Value = Empty Then Exit Sub
If .Row < 4 Then Exit Sub
Select Case .Column
Case 3
.Value = UCase(.Value) 'on met en majuscule"NOM" col 2
B = verif.exe(Me.Cells(Target.Row, 3), Me.Cells(Target.Row, 4))
Case 4
.Value = Application.Proper(.Value) 'on met en mixte"Prénom"col 1
B = verif.exe(Me.Cells(Target.Row, 3), Me.Cells(Target.Row, 4))
Case 7, 8, 10, 11, 12
.Value = UCase(.Value) 'on met en majuscule"NOM" col 2
End Select
If B = True Then
Me.Cells(Target.Row, 3) = ""
Me.Cells(Target.Row, 4) = ""
End If
End With
End Sub