macro majuscule

Private Sub Worksheet_Change(ByVal Target As Range)

Dim l As Byte
l = Target.Row

If Target.Count <> 1 Then Exit Sub

If Target <> "" And Target.Column = 1 Then

    If (l - 5) Mod 4 = 0 Then
    Target = UCase(Target)
    End If

    If (l - 6) Mod 4 = 0 Then
    Target = StrConv(Target.Text, 3)
    End If

End If
End Sub