Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim derlig As Long, i As Long, cel As Range
If Not Intersect(Target, Columns("B:B")) Is Nothing Then
derlig = Range("a" & Rows.Count).End(xlUp).Row
For Each cel In Range("a8:a" & derlig)
If Target.Offset(0, -1) = cel.Offset(-1, 0).Value Then: MsgBox " Ce numéro est déjà inscrit." & vbCrLf _
& vbCrLf & " Saisissez un autre numéro", , "ERREUR": Target.Offset(0, -1).ClearContents: Exit Sub
Next cel
End If
If Not Intersect(Target, Columns("D:D")) Is Nothing Then
For i = 0 To 14
Target.Offset(0, i) = Format(Target.Offset(0, i - 1) + 1, "0")
Next i
Range("e3") = Target.Offset(0, 14)
End If
End Sub