Re-Bonjour PierreJean,
Encore merci d'être là.
Je crois que j'ai trouvé après pas mal de recherches
J'ai utilisé les codes suivants :
Macro ExécuteUF
Sub truc_QuandAffichage()
ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(1).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
j'ai modifié :
.Label10.Caption = [NBEnr] - 2
.Label82.Caption = Cells(1 + CURREG, 1) + 1
et ça semble marcher LOL
Sans trop comprendre, c'est grâce à vous tous que j'ai pu raisonner à ma façon et faire ce petit truc.
Voici le classeur en pièce jointe.
Un grand merci de m'avoir aidé.
Amicalement,
Lionel,