Sub TraitementBDZephir()
Dim cols, c As Range, j&
cols = Array([{48,"D2"}], [{15,"D3"}], [{-4142,"D4"}], [{38,"D5"}], [{6,"D6"}], [{37,"D7"}], [{46,"D8"}], [{50,"D9"}])
With Sheets("base données")
.Columns("C:C").Insert Shift:=xlToRight
For Each c In .Range("B5:B98")
For j = 0 To UBound(cols, 1)
If c.Interior.ColorIndex = CLng(cols(j)(1)) Then
c.Offset(, 1) = Range(CStr(cols(j)(2)))
End If
Next j
Next c
.Columns("C:C").ColumnWidth = 28.14
End With
End Sub