Impression Feuilles

[matmat36]

Bonsoir tout le monde

Je vous envoie ce message , pour savoir si on peut accélérer cette formule

J'ai eu 240 lignes , je trouve que cela rame un peu .
Lors de l' impression, j'ai eu 2 processeurs à 80 % , est ce normal ?

Private Sub Worksheet_Activate()
Cells.Clear
Sheets("classement general").Range("A2:l4").Copy
ActiveSheet.Paste Destination:=Worksheets("IMPRIM").Range("A1")
derLig = Sheets("classement general").Range("A" & Cells.Rows.Count).End(xlUp).Row
lig = 3
For i = 4 To derLig
If Len(Sheets("classement general").Cells(i, 3).Value) > 0 Then
If Sheets("classement general").Cells(i, 3).Value <> "NOM" Then
With Worksheets("classement general")
.Range(.Cells(i, 1), .Cells(i, 12)).Copy
End With
ActiveSheet.Paste Destination:=Worksheets("IMPRIM").Cells(lig, 1)
lig = lig + 1
End If
End If
Next
End Sub

Merci de votre commentaire ou point de vue

Mathieu