Sub copier_coller_ligne_suivant_calcul()
Dim dercol%, i&, v#, sup As Boolean, j%
dercol = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
Application.ScreenUpdating = False
For i = Range("G" & Rows.Count).End(xlUp).Row To 9 Step -1
v = Val(Replace(Cells(i, 7), ",", ".")) - Val(Replace(Cells(i, 5), ",", "."))
If v > 0 And Cells(i, 5) > 0 Then
Rows(i + 1).Insert 'insère une ligne
Rows(i).Copy Rows(i + 1)
Cells(i + 1, 6).Validation.Delete 'supprime la liste de validation
Cells(i + 1, 5) = ""
Cells(i + 1, 7) = v
sup = True
For j = 1 To dercol
If Cells(i + 1, j) <> Cells(i + 2, j) Then sup = False: Exit For
Next
If sup Then Rows(i + 1).Delete 'supprime la ligne insérée
End If
Next
End Sub