' Copie du % dans la case Avenant correspondante
Feuil8.Cells(Lots.ListIndex + 8, 3) = Pourcentage.Value / 100
Feuil8.Cells(Lots.ListIndex + 8, 3).NumberFormat = "0%"
' renseignement du montant de la situation
MontantHT = Feuil8.Cells(Lots.ListIndex + 8, 4)
d = Feuil8.Cells(Lots.ListIndex + 8, 6).End(xlToLeft).Column + 1
If d < 5 Then d = 5
Feuil8.Cells(Lots.ListIndex + 8, d).Formula = MontantHT * Pourcentage / 100