XL 2013 Code qui bloque trop

Private Sub Worksheet_SelectionChange(ByVal R As Range)
    If Intersect(R, Range("A7:E7")) Is Nothing Then
        If [f3] <> "OK" Then
            MsgBox ("Il manque des infos dans votre ligne !" & nbcel)
            Range("A7").Select
            Exit Sub
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal R As Range)

If ActiveCell.Offset(0, -1) = vbNullString Then
MsgBox "Il manque des infos dans votre ligne !", , "ATTENTION !"
Application.Goto ActiveCell.Offset(0, -1)
Exit Sub
End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If [f3] = "OK" Then Sheets(1).ScrollArea = ""
  End Sub

Private Sub Worksheet_SelectionChange(ByVal R As Range)
    If [f3] <> "OK" Then Sheets(1).ScrollArea = ("A7:E7")
End Sub

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Cells(ActiveCell.Row, 2) = "" And [g3] = "OK" And [k3] = "OK" Then Exit Sub
Application.ScreenUpdating = False: Application.EnableEvents = False
If [g3] <> "OK" Then Rang$ = "b7:F10000": GoTo suite
If [g3] = "OK" And [k3] <> "OK" Then Rang$ = "i7:j10000": GoTo suite
Exit Sub
suite: '<
Application.ScreenUpdating = False: Application.EnableEvents = False
Range(Rang$).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
ActiveWindow.ScrollRow = Selection.Row
'MsgBox "Il manque des infos dans votre ligne no " & ActiveCell.Row
Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub
[\code]

Private Sub Worksheet_Change(ByVal R As Range)
If Not Application.CountA(Cells(R.Row, 1).Resize(, 5)) = 5 Then
MsgBox "Veuillez remplir les cellules:" & Cells(R.Row, 1).Resize(, 5).Address(0, 0)
R.Offset(, 1).Select
Else
Cells(R.Row + 1, 1).Select
End If
End Sub