Bonjour eudocha, bonjour le forum,

Je suis vraiment ennuyée que tu n'arrives pas à reproduire ce numéro producteur dans ta base réelle.

Si l'on reprend étape par étape pour ce numéro:

Dans l'onglet "TableProducteurs" as-tu bien ce code:

Il permet trier les Axes et Producteurs dans les colonnes I J K:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Columns(4)) Is Nothing Then
Dim lig As Long, Plage As Range
    With ActiveSheet
        Target.Offset(0, 2) = Date
        lig = .Cells(Rows.Count, 4).End(xlUp).Row
        Set Plage = .Range("D1:F" & lig)
        Plage.Copy
        .Range("I1").PasteSpecial Paste:=xlPasteValues
            With .Sort.SortFields
             .Clear
             .Add Key:=Range("I2:I" & lig), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
                 xlSortNormal
             .Add Key:=Range("J2:J" & lig), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
                 xlSortNormal
            End With
            
            With .Sort
             .SetRange Range("I1:K" & lig)
             .Header = xlYes
             .MatchCase = False
             .Orientation = xlTopToBottom
             .SortMethod = xlPinYin
             .Apply
            End With
    End With
End If
Application.CutCopyMode = False
Target.Select
Application.ScreenUpdating = True
End Sub

Ensuite dans les zones nommées, as-tu bien dans ton fichier cette zone: "Numproducteur", qui fait référence à:

=DECALER(TableProducteurs!$J$2;;;NBVAL(TableProducteurs!$J:$J)-1;)

ainsi que cette zone "AxesTirés":

=DECALER(TableProducteurs!$I$2;;;NBVAL(TableProducteurs!$I:$I)-1;)

Enfin, dans ton onglet BDD colonne F, ta liste de validation fait-elle bien référence à ceci:

=DECALER(NumProducteur;EQUIV($B6;AxesTriés;0);;NB.SI(AxesTriés;$B6))

Peux-tu vérifier étape par étape, si tu n'y arrivais pas pourras-tu nous dire à quel endroit tu bloques?

Bon courage eudocha et à très bientôt,

mth