For n = LBound(tablo, 1) To UBound(tablo, 1)
If tablo(n, 2) = Target.Value Then
liste = liste & tablo(n, 3) & ","
End If
Next
Set lookfor = book1.Sheets(nombase).Range("B" & Target.Row) ' value to find
If IsEmpty(liste) Then
Target.Offset(0, 1).Value = "DSL - Peut être erreur de frappe"
Exit Sub
Else
liste = Left(liste, Len(liste) - 1)
End If
If InStr(liste, ",") <> 0 Then
With Target.Offset(0, 1).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=liste
End With
Target.Offset(0, 1).Select
Else
With Target.Offset(0, 1).Validation
.Delete
End With