Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, rr As Range
'ajout staple
'ici il suffit de changer la plage de cellules si changement
'donc on remplage H9:H25 par tes cellules de la question du jour
On Error Resume Next
Set r = Intersect(Target, [B1:B60], Me.UsedRange) 'plage à adapter
For Each r In r 'si entrées multiples (copier-coller)
If CStr(r) <> UCase(r) Then r = UCase(r)
Next
Set r = Nothing
Set rr = Intersect(Target, [C1:C60], Me.UsedRange) 'plage à adapter
For Each rr In rr 'si entrées multiples (copier-coller)
If CStr(rr) <> LCase(rr) Then rr = LCase(rr)
Next
Set rr = Nothing
End Sub