Bonjour le forum
j'ai un souci j'ai voulu copier et recoler (collage speciale lorsqu'on le fait à la "main") une ligne entiere mais mon code a bien fait le traitement mais en collant plussieur fois la ligne en question et je ne vois pas d'ou cela peut provenir

voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub Valider_Click()
    Ajout_appui_com.Hide
    Sheets("Feuil3").Select
    dernier = Range("S4").Value
    Sheets("Feuil1").Select
    Rows(dernier).Select
    MsgBox ("copie de la ligne ")
    Selection.Copy
    MsgBox ("insertion ")
    Rows(dernier + 2).Select
    Selection.Insert Shift:=xlDown
    MsgBox ("renommage de l'opération ")
    Cells(dernier + 2, 2).Value = TextBox1.Value
    MsgBox ("effacement des cellules")
    Cells(dernier + 2, 4).Value = ""
    Cells(dernier + 2, 7).Value = ""
    Sheets("Feuil3").Select
    Range("S4").Value = Range("S4").Value + 2
End Sub
une petite explication du code (du moin de ce que je souhaite faire ) :
-je "hide" le formulaire précedent
-je vais chercher une variable "dernier" dans la feuille 3
-je selectionne la feuille 1
-je me positionne sur la ligne que je désire copier (celle ci correspond à la valeur de "dernier")
- je copie la ligne
- je me positionne 2 ligne plus bas
- j'insere les cellules

la suite semble marcher c'est l'insertion qui me pose probleme puisque cela copie pas une seul fois la cellule