Bonjour à tous,
vous trouverez ci-dessous un code qui me permet d'insérer une ligne en dessous de celle que j'ai sélectionné, mais si je sélectionne dans un tableau par exemple 3 lignes il insère juste la 1ère ligne de ces trois lignes sélectionnées.
je veux le modifier comme ça si je sélectionne 3 trois lignes et je clique sur le bouton il me fait la copie de ces trois lignes et chaque ligne inséré doit avoir la même mise en forme, couleur et formules que la ligne copiée
Merci d'avance
Sub InsererSousAvecFormules()
Application.ScreenUpdating = False
ActiveCell(2).Resize(1).EntireRow.Insert
ActiveCell(1).EntireRow.Copy ActiveCell(2).Resize(1).EntireRow
On Error Resume Next 'au cas où il n'y ait pas de constantes
ActiveCell(2).Resize(1).EntireRow. _
SpecialCells(xlConstants).ClearContents
End Sub