Bonjour à tous

Je voudrais savoir comment automatiser une copy de la derniere ligne des que l'avant derniere ligne se remplit.

Je rempli mes ligne a l'aide d'une userform qui peut me servir de declencheur.

j'ai le shema a peu pres en tete mais je n'arrive pas à le formaliser.


voici mon code de copy de ligne, mais je ne sais pas comment faire pour que ça se fasse dynamiquement:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Dim r As Integer, s As Integer
Set firstCell = Range("B5")
Set lastCell = Range("B65536").End(xlUp)
 
Range(lastCell, lastCell).Select
s = ActiveCell.Row
 
ActiveCell.Offset(1, 0).EntireRow.Select
r = ActiveCell.Row
 selection.Insert Shift:=xlDown
 Rows(s).Select
 Rows(s).Copy Rows(r)
Merci d'avance