bonjour,
j'ai créé une macro qui copie une selection de ligne, la macro fonctionne mais il y a un maximun ,,, je m'explique :
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
21
22
23
24
Sub G()
'
' G Macro
' Macro enregistrée le 2008-03-29 par André
'
 
'
    Sheets("bd").Select
    Rows("2:30").Select
    Selection.Insert Shift:=xlDown
    Range("A3").Select
    Sheets("SHOP").Select
    Range("A7:G29,A34:G56,A61:G83,A88:G110,A115:G137,A142:G164,A169:G191,A196:G218,A223:G245,A250:G272,A277:G299,A304:G326,A331:G353,A358:G380,A385:G407,A412:G434,A439:G461,A466:G488,A493:G515,A520:G542,A547:G569,A574:G596").Select
    Selection.Copy
    Sheets("bd").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A3").Select
    Sheets("SHOP").Select
    Application.CutCopyMode = False
    Range("A7").Select
    Sheets("bd").Select
End Sub
je ne peux pas ajouter de ligne plus loin que la g 596 ?????

y-a une raison?????