Set Tc = wsList.Range("3:3").Find(wsMno.Cells(Lig, 12).Value, LookIn:=xlValues, LookAt:=xlWhole) 'trouver type référence dans Liste
TypeC = wsMno.Range("L" & Lig)
Set wsList = ActiveSheet 'Liste Type
If ((wsList.Cells(6, Tc.Column).Value <> "")) Then
wsMno.Activate
wsMno.Range("Q" & Lig).Select
With Selection.Validation 'liste pour chaque cellule de la colonne Q
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, [COLOR="Red"]Formula1:="=" & wbMno.Name & "!" & TypeC & "_type"[/COLOR]
End With
end if