forcer la majuscule

bonjour à tous

afin de forcer la majuscule sur deux colonnes j'ai trouvé ce code sur un autre fil. d'après ce que j'ai pu lire il devrait fonctionner pourtant chez moi ça bug ;
j'ai placé ce code au début du code de la feuille concernée.
il me met un message d'erreur sur le flag en disant valeur non définie !!!😕

merci de votre aide
Kinel

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub

If Not Intersect(Target, Range("b5:b1000")) Is Nothing Then
Application.EnableEvents = False
flag = True
Target.Value = Evaluate("PROPER(""" + Target.Value + """)")
End If

If Not Intersect(Target, Range("a5:a1000")) Is Nothing Then
Application.EnableEvents = False
flag = True
Target.Value = UCase(Target.Value)
End If


Application.EnableEvents = True

End Sub