Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .CountLarge > 1 Then Exit Sub
If .Column <> 4 Then Exit Sub
Dim lig&: lig = .Row
If lig < 19 Or lig > 48 Then Exit Sub
If lig = 23 Or lig = 44 Then Exit Sub
If .Value >= Round([I10] * 0.7, 0) Then Exit Sub
Dim i As Byte
For i = 1 To 3 'Loop 3 times.
Beep
'PlaySound ThisWorkbook.Path & "\0257", 0, 1
Next i
MsgBox "Attention valeur hors tolérance"
End With
End Sub