bonjour
la reponse est dans le code de la feuille (pas dans les modules) en bout de code ;dans la partie qui parle de resultat1.....
mais a voir ça a l'air impeccable et dynamique
cordialement
Range("C1") = ""
With Range("C1").Validation
.Delete
Range("A6:F6,A11:D11,A16:D16,A21,A26:F26,A31:C31,A36:E36,A41:G41").ClearContents
If Target = "Résultats 1" Then
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Traces!$B$3:$B$" & Sheets("Traces").Range("B" & Rows.Count).End(xlUp).Row
ElseIf Target = "Résultats 2" Then
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Traces2!$B$3:$B$" & Sheets("Traces2").Range("B" & Rows.Count).End(xlUp).Row
End If
End With