Bonjour MarcDU,
slt tulipe_4,
macro à copier sur la page code de la feuille,
Private Sub Worksheet_Calculate()
Select Case Range("F3")
Case "NonFIAS2": t = "-Cons,-FILVERT"
Case "FIAS2": t = "-Admin"
End Select
With Range("G3").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=t
End With
End Sub