Interdire la suppression d'une ligne en vba

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range
For Each cel In Selection
    If cel.Row = 5 Then
        MsgBox ("La ligne 5 ne peut être sélectionnée")
        cel.Offset(1, 0).Select
        Exit For
    End If
Next cel
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Rows(5)) Is Nothing Then
        MsgBox ("La ligne 5 ne peut être sélectionnée")
        Cells(4, Target.Column).Select
    End If
End Sub