Private Sub Worksheet_Change(ByVal Cible As Range)
Dim p%
If Cible.Address = "$B$2" Then
Cible.Select
p = 32 'nb. max. d'engagés (au moins 2)
Application.EnableEvents = False
Cible.Offset(1).Resize(p - 1 - (p = 1), p + 1).Value = BERGER_1(p, Cible.Value)
Application.EnableEvents = True
End If
End Sub