Bonjour.

J'ai une macro qui fonctionne très bien, mais j'aimerais la simplifier et faire en sorte qu'elle s'exécute sans séléctionner les feuilles, car ca me fait un vrai strombinoscope à l'écran à chaque fois !

Je vous la met ici :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Nouvel_Enregistrement()
 
 
For i = 1 To Worksheets.Count - 3 '(J'ai quatorze feuilles, mais la macro ne doit s'éxécuter que sur les 11 premières.
 
    With Worksheets(i)
 
    Worksheets(i).Select
        [A3000].End(xlUp).Select    '(selection de la dernière ligne)
        ActiveCell.Rows("1:2").EntireRow.Select '(Sélection des deux dernières lignes)
        Selection.AutoFill Destination:=ActiveCell.Rows("1:4").EntireRow, Type:= _
            xlFillDefault  ' (Copie incrémenter des deux dernière ligne sur les deux suivantes.
        [B3000].End(xlUp).Select '(Selection de la dernière ligne pour la prochaine fois)
 
End With
 
Next i
 
 
End Sub
En vous remerciant par avance.

Sybiou