Worksheet_Change et Workbook_SheetChange

Option Explicit


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "Feuil1" Then
        Static G As Boolean
        If G = False And Target.Count = 1 And Not Intersect(Target, Range("C8:C200,G8:G200")) Is Nothing Then
            G = True
            Target.Value = UCase(Target.Value)
            G = False
        End If
    End If
    If Sh.Name = "Feuil2" Or Sh.Name = "Feuil3" Or Sh.Name = "Feuil4" Then
        Dim plage As Range
        If Target.Count > 1 Then Exit Sub    '<-- pour éviter que ça coince si on sélectionne plusieurs cellules
        Set plage = Sh.Range("E15:E17")
        Application.EnableEvents = False
        If Not Application.Intersect(Target, plage) Is Nothing Then
            Target.Value = StrConv(Target.Value, 3)
        End If
        If Not Application.Intersect(Target, Sh.Range("E14")) Is Nothing Then
            Target = UCase(Target)
        End If
        Application.EnableEvents = True
    End If
End Sub