Dim cel%
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$H$4" Then Exit Sub
If Target = "" Then Exit Sub
lig = Application.Match([H4], [B:B], 0)
If Not IsNumeric(lig) Then MsgBox "inexistant": Exit Sub
Rows(lig).Select
If MsgBox("Souhaitez-vous Valider ?", vbExclamation + vbYesNo, "Inscrire OK") = vbNo Then [H4] = "": Exit Sub
Application.EnableEvents = False
Cells(lig, 1) = "OK": [H4] = ""
[A1].Select
Application.EnableEvents = True
cel = cel + [H15]
[H16] = cel
End Sub