liste déroulante dynamique et FormatConditions

 Set Cell_Color = Worksheets(Data).Range("P2")
    While Not Cell_Color.Interior.Color = Gray Or Cell_Color.Interior.Color = White
        i = i + 1
        Set Cell_Color = Cell_Color.offset(1, 0)
    Wend
    
    
    With Worksheets(Plans).Range(Cells(3, 15).Address & ":" & Cells(Rows.Count, 15).End(xlUp).Address).Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=Data!$B$2:$B$" & i
            .ErrorMessage = "You don't have the persmissison to write"
        End With
        With .FormatConditions
                .Delete
                For j = 2 To i
                .Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""Data!$B"" & i & """""
                Next
            End With
            
        For j = 1 To i - 1
        .FormatConditions(j).Interior.Color = Sheets(Data).Cells(j, 16).Interior.Color
        Next
        
    End With