Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("F12:H25")) Is Nothing Then
Ligne = Target.Row
If Cells(Ligne, 2) = "" And Cells(Ligne, 5) = "" Then
Application.EnableEvents = False
MsgBox "Vous devez préalablement remplir Installation ou Amplificateur."
Cells(Ligne, Target.Column) = ""
Cells(Ligne, 2).Select
Application.EnableEvents = True
End If
End If
End Sub