saisie en majiscule et protéger la mise en page

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, cel As Range
Set plage = Intersect(Target, [Zone]) 'Zone => plage nommée dans la feuille
If plage Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive l'action des évènements
For Each cel In plage
cel = UCase(cel.Text) 'mise en majuscule
Next
Application.EnableEvents = True 'réactivation
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Fin As Long, i As Long
If Target.Cells.Count = 1 Then
    Fin = Cells(Rows.Count, 1).End(xlUp).Row
    If Not Application.Intersect(Target, Range("A1:A" & Fin)) Is Nothing Then
        i = Target.Row
        If Range("AI" & i) = "-" Then Exit Sub
        If Range("A" & i).Value <> "" Then
            Range("E3:ES3").Copy Range("E" & i)
            Rows(i).RowHeight = 14
        End If
    End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

Dim plage As Range, cel As Range
Set plage = Intersect(Target, [Zone]) 'Zone => plage nommée dans la feuille
If Not plage Is Nothing Then
  Application.EnableEvents = False 'désactive l'action des évènements
  For Each cel In plage
    cel = UCase(cel.Text) 'mise en majuscule
  Next
  Application.EnableEvents = True 'réactivation
End If

Dim Fin As Long, i As Long
If Target.Cells.Count = 1 Then
    Fin = Cells(Rows.Count, 1).End(xlUp).Row
    If Not Application.Intersect(Target, Range("A1:A" & Fin)) Is Nothing Then
        i = Target.Row
        If Range("AI" & i) = "-" Then Exit Sub
        If Range("A" & i).Value <> "" Then
            Range("E3:ES3").Copy Range("E" & i)
            Rows(i).RowHeight = 14
        End If
    End If
End If

End Sub

=DECALER(Feuil1!$A$1;;;EQUIV("zzz";Feuil1!$A:$A))

Dim Fin As Long, i As Long
If Target.Cells.Count = 1 Then
    Fin = Cells(Rows.Count, 1).End(xlUp).Row
    If Not Application.Intersect(Target, Range("A1:A" & Fin)) Is Nothing Then
       i = Target.Row
        If Range("AI" & i) = "-" Then Exit Sub
        If Range("A" & i).Value <> "" Then
            [COLOR="Red"]Me.Unprotect 'ajouter éventuellement le mot de passe[/COLOR]
            Range("E3:ES3").Copy Range("E" & i)
            Rows(i).RowHeight = 14
            [COLOR="red"]Me.Protect 'ajouter éventuellement le mot de passe[/COLOR]
        End If
    End If
End If