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