Bonjour, Salut Jean-Eric,
Pour la première question, insère le code suivant :
With Columns("H:H")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=NB.SI(D1;""*TAR*"")"
.FormatConditions(1).Interior.ColorIndex = 10
End With
Pour la 2ème, insère le code suivant à la fin de ta macro et avant la ligne "End Sub" :
Columns("E:E").NumberFormat = "#,##0.000"