Sub Copie_feuille()
Sheets("Prix vierge").Select
Sheets("Prix vierge").Copy after:=Sheets(Sheets.Count)
Sheets("Recap").Select
Range("B5:L5").Select
Selection.Insert Shift:=xlDown
Range("B5").Select
End Sub
Pierrot93 à dit:Bonjour Georgio
a priori ce n'est pas ton "Range("B5").select" qui bogue, enfin si j'ai bien compris et si c'est la macro concernée, essaye le code ci dessous :
Code:Sub Copie_feuille() Sheets("Prix vierge").Select Sheets("Prix vierge").Copy after:=Sheets(Sheets.Count) Sheets("Recap").Select Range("B5:L5").Select Selection.Insert Shift:=xlDown Range("B5").Select End Sub
bon après midi
@+
[LEFT]Sub Copie_feuille()
[LEFT] Sheets("Prix vierge").Copy after:=Sheets(Sheets.Count)
Sheets("Recap").Range("B5:L5").Insert Shift:=xlDown
Range("B5").Select
End Sub[/LEFT]
Sub test()
Dim rng As Range
Set rng = Sheets("Recap").Range("B5:L5")
Sheets("Prix vierge").Copy after:=Sheets(Sheets.Count)
rng.Insert Shift:=xlDown
Set rng = Nothing
End Sub