bonjour Jean-Eric
Je voulais juste savoir s' il était possible de l’accéléré n’étant pas un spécialiste car je trouve qu'elle met du temps (2 min environ pour 360 lignes).
ci-dessous le code original, j'ai retirer l'essai avec ("Application.ScreenUpdating = False").
cordialement,
Sub MAJessai()
Cells(6, 4).Select
l = ActiveCell.Row
c = ActiveCell.Column
Do While l < 360
Range(Cells(l, 12), Cells(l, 27)).Select
Selection.Copy
l = l + 2
Cells(l, 12).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
l = l - 1
Range(Cells(l, 8), Cells(l, 11)).Select
Selection.Copy
l = l + 1
Cells(l, 8).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
l = l + 3 Loop
Cells(6, 4).Select
MsgBox ("ok")
End Sub