Boucler x fois...

Bonsoir tout le monde !

J'ai encore un souci... pour changer ! Ah, ces débutants !

Voilà, j'ai un code qui est celui-ci :

Public Sub insertion_lignes()
Dim DébutLigne As Integer
Dim NbLignes As Integer

Sheets('mailing virements').Select

DébutLigne = 47 'pour insérer à partir de la ligne 47
NbLignes = Sheets('REGLEMENT DU JOUR').Range('G14').Value 'le nbe de lignes à ajouter est en 'G14'
If NbLignes > 0 Then
Rows(DébutLigne & ':' & (DébutLigne + NbLignes - 1)).Select
Selection.Insert Shift:=xlDown
End If



Range('A46:B46').Select
Selection.Copy
Range('A47').Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False


Range('C46😀46').Select
Selection.Copy
Range('C47').Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False



Range('A46:B46').Select
Selection.Copy
Range('A47').Select
ActiveSheet.Paste


Range('C46😀46').Select
Selection.Copy
Range('C47').Select
ActiveSheet.Paste



End Sub



Pour l'expliquer : je fais des avis de virement.
Ma mise en page initiale comporte 23 lignes sur un avis vierge.
Si j'ai réglé 36 factures, il me manque donc 13 lignes sur mon avis.
Le nombre de lignes à ajouter se trouve en G14.

J'ai 2 soucis :
- je voudrais que la mise en forme et les formules de mes champs 'A46:B46' (cellules fusionnées) et 'C46😀46' (idem) soient recopiées autant de fois que j'ai ajouté de lignes.
- j'aimerai avoir un code pour revenir à ma mise en page de 23 lignes après validation de mon avis...


voilà, c'est tout, et c'est déjà pas mal !
Merci à vous de m'avoir lue, et merci également pour les solutions que vous pourrez m'apporter.


Bonne soirée à vous

Sophie