Private Sub Worksheet_Change(ByVal Target As Range)
Dim L As Long, V As Variant
If Not Application.Intersect(Target, Range('B1')) Is Nothing Then
If Target.Value <> '' Then
With Sheets('BOSS')
L = .Range('C65536').End(xlUp).Row + 1
V = .Cells(L, 3).Offset(0, 1).Value
If V <> '' Then
.Cells(L, 3).Value = Target.Value
Range('B8').Value = V
Else
MsgBox 'Dernière valeur atteinte !'
End If
End With
End If
End If
End Sub