XL 2019 message d'alerte si une cellule est vide

Private force As Range

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 2 And Target.Value <> "" Then
    If Range("F" & Target.Row).Value = "" Then Set force = Range("F" & Target.Row)
  End If
  If Not force Is Nothing Then
     If force.Value <> "" Then Set force = Nothing
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not force Is Nothing Then force.Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
With ListObjects(1).Range 'tableau structuré
    For Each c In .Columns(6).Cells
        If Not IsEmpty(c(1, 0)) And IsEmpty(c) Then ScrollArea = c.Address: Exit Sub 'bloque la sélection
    Next
    ScrollArea = "" 'libère la sélection
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 2 And Target.Value <> "" Then
    If Range("F" & Target.Row).Value = "" Then Range("A1").Value = Range("F" & Target.Row).Address
  End If
  If Range("A1").Value <> "" Then
     If Range(Range("A1").Value) <> "" Then Range("A1").Value = ""
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Range("A1").Value <> "" Then Range(Range("A1").Value).Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
With ListObjects(1).Range 'tableau structuré
    For Each c In .Columns(6).Cells
        If Not IsEmpty(c(1, 0)) And IsEmpty(c) Then c.Select: ScrollArea = c.Address: Exit Sub 'bloque la sélection
    Next
    ScrollArea = "" 'libère la sélection
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheet_Change ActiveCell 'lance la macro
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
With Range("A1", UsedRange)
    For Each c In .Columns(7).Cells 'colonne G
        If IsEmpty(c) And c(1, 6) = "REPRISE RMA TEK1.0" Then c.Select: ScrollArea = c.Address: Exit Sub 'bloque la sélection
    Next
    ScrollArea = "" 'libère la sélection
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheet_Change ActiveCell 'lance la macro
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In [G18:G81] 'plage adaptable au besoin
    If IsEmpty(c) And (IsNumeric(CStr(c(1, 6))) Or c(1, 6) = "REPRISE RMA TEK1.0") _
        Then c.Select: ScrollArea = c.Address: Exit Sub 'bloque la sélection
Next
ScrollArea = "" 'libère la sélection
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheet_Change ActiveCell 'lance la macro
End Sub