Bonjour Alain,
Tu trouveras en pièce jointe un petit exemple qui devrait t'aider à résoudre ton problème.
=====================================================
Private Sub Worksheet_Change(ByVal Target As Range)
Set TableauPrix = Range("B2:F10") 'Tableau des prix
ColonneTransporteurs = "A" 'Colonne des transporteurs
If Intersect(Target, TableauPrix) Is Nothing Then Exit Sub
For Each Col In TableauPrix.Columns
Minval = ""
For Each Cel In Intersect(Col, TableauPrix)
If Minval = "" And IsNumeric(Cel) And Cel <> "" Then Minval = Cel
If Cel <> "" And Cel < Minval Then Minval = Cel
Next Cel
For Each Cel In Intersect(Col, TableauPrix)
If IsNumeric(Cel) And Cel = Minval Then _
Cel.Interior.ColorIndex = _
Cel.EntireRow.Cells(1, ColonneTransporteurs).Interior.ColorIndex
Next Cel
Next Col
End Sub
=====================================================
Cordialement.
Omicron