Bonjour Chris1800, fanfan38, le forum,
Un essai ....à partir de ta macro...à tester....
Sub Macro1()
Dim valeur As Integer
Application.ScreenUpdating = False
With Sheets("Saisie")
valeur = WorksheetFunction.Sum(.Range("I11:I211"))
.Range("K:L").ClearContents
If .Range("I2").Value - valeur = 0 Then
.Range("I11").Copy
.Range("K4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.Range("I12:I211").Copy
.Range("K5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.Range("L4").FormulaR1C1 = "=+RC[-1]*0.07"
.Range("L4").AutoFill Destination:=.Range("L4:L204"), Type:=xlFillDefault
.Range("K204:L204").AutoFill Destination:=Range("K204:L211"), Type:=xlFillDefault
.Range("K4").Select
End If
End With
Application.CutCopyMode = False
End Sub
Cordialement,