With Worksheets("Donnees")
Label30.Caption = .Range("B" & LigneJ).Value
Label31.Caption = .Range("C" & LigneJ).Value & Chr(13) & Chr(10) & _
.Range("D" & LigneJ).Value & " " & _
.Range("E" & LigneJ).Value
Label32.Caption = .Range("F" & LigneJ).Value
Label33.Caption = .Range("G" & LigneJ).Value
Label34.Caption = .Range("H" & LigneJ).Value
Label35.Caption = .Range("I" & LigneJ).Value
Label36.Caption = .Range("J" & LigneJ).Value
Label37.Caption = .Range("K" & LigneJ).Value
Label38.Caption = .Range("L" & LigneJ).Value
Label39.Caption = [COLOR="Red"]Format(.[/COLOR]Range("M" & LigneJ).Value[COLOR="red"], "######.0## $")[/COLOR]
Label40.Caption = Format(.Range("N" & LigneJ).Value, "######.0## $")
Label41.Caption = Format(.Range("O" & LigneJ).Value, "######.0## $")
Label42.Caption = Format(.Range("P" & LigneJ).Value, "######.0## $")
Label43.Caption = Format(.Range("Q" & LigneJ).Value, "######.0## $")
End With