Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Cells(5, 2).Value = UCase(Cells(5, 2).Value) ' En prenant la cellule par sa ligne / colonne
Range("B5").Value = UCase(Range("B5").Value) ' En prenant la cellule par son nom
End Sub