Bonjour,
Désolé, je ne sais pas pourquoi mon code n'apparaît pas (
Donc, à mettre dans le module de ta feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'les listes déroulantes apparaîssent en colonne B
Columns("B:B").Validation.Delete
If Not Intersect(Target, Columns("B:B")) Is Nothing Then
If [A10] = [C2] Then
Target.Validation.Add xlValidateList, , , "A,B,C,D"
End If
End If
End Sub
Hervé.