Re : Copié / coller après petite recherche
Bonjour encore,
Un peu comme Klin89 à créé:
Sub Recopier()
Dim lig As Long, cel As Range
Application.ScreenUpdating = False
Sheets("sheet1").Rows("3:65536").ClearContents
lig = 2
With Sheets("sheet2") (toute mes page 2, 3, 4 etc)
For Each cel In...