Derlig = Sheets("BD_Dettes_Règlements").[B10014].End(xlUp).Row
For Lig = 14 To Derlig
With Cells(Lig, "B").Resize(, 6)
.Borders.LineStyle = xlContinuous
.HorizontalAlignment = xlCenter
.Interior.ColorIndex = 19
.Font.ColorIndex = 3
.RowHeight = 18
.Font.Size = 12
select case range("d" & Derlig)
case "Dette": .Font.Color = -16776961 ' rouge
case "Règlement" : .Font.Color = -4165632 'bleu
end select
End With
Next Lig