With Sheets("Base1")
Application.CutCopyMode = False
Application.EnableEvents = True
NewLig = .Cells(.Rows.Count, "B").End(xlUp).Row + 1 ' je cherche la dernière ligne écrite de la colonne B et je me positionne a +1 soit en ligne 24
.Rows(NewLig - 23).Copy ' je copie la ligne 1 enfin je crois, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
....
End with