Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Static noEvents As Boolean
Dim datas, lig As Long, i As Long
If noEvents Or Target.Count > 1 Then Exit Sub
If Target.Address = "$K$30" And IsNumeric([K30]) Then
With Sheets("Accueil")
datas = .[B2].Resize(.Cells(Rows.Count, 2).End(xlUp).Row - 1, 2).Value
End With
For lig = 1 To UBound(datas)
On Error GoTo suite
i = Sheets(datas(lig, 1)).Index
On Error GoTo 0
If Sh.Name = datas(lig, 1) And UCase(datas(lig, 2)) = "K30" Then
noEvents = True
Sh.[P15] = Sh.[P15] + Target.Value
Target.ClearContents
Target.Select
noEvents = False
Exit For
End If
suite:
On Error GoTo 0
Next lig
End If
End Sub