Bonjour,
Une proposition, en attendant celles à venir
Cdlt
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ws As Worksheet, Derligne As Long, Plage As Range
Set Ws = Worksheets("Feuil1")
With Ws
Derligne = .Range("B" & Rows.Count).End(xlUp).Row
Set Plage = .Range("C7:C" & Derligne)
End With
If Application.Intersect(Target, Plage) Is Nothing Then Exit Sub
On Error GoTo fin
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
Set Ws = Nothing: Set Plage = Nothing
Exit Sub
fin:
Application.EnableEvents = True
Set Ws = Nothing: Set Plage = Nothing
End Sub