Simplification / redondances dans un code

Le 12/05/2014 à 16:41

Bonjour à tous,

Mon niveau VBA est proche de zéro. J'ai enregistré une Macro. Cette dernière est fonctionnelle mais très longue. Elle comporte bon nombre de redondances. Pensez-vous qu'il vous soit possible de la simplifier.

Merci beaucoup pour votre aide.

Sub ButtonArchiveNCRE_Click()

'

' ButtonArchiveNCRE_Click Macro

'

'

'

If MsgBox("Etes-vous certain de vouloir archiver les mesures ?", vbYesNo + vbExclamation, "Archivage des équipements non critiques") = vbYes Then

Sheets("Suivi NCRE").Select

Range("S111:S125").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T111:T125").Select

Selection.Copy

Range("S111").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H111:H125").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S141:S155").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T141:T155").Select

Selection.Copy

Range("S141").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H141:H155").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S176:S189").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T176:T189").Select

Selection.Copy

Range("S176:S189").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H176:H189").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S205:S218").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T205:T218").Select

Selection.Copy

Range("S205").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H205:H218").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S239:S261").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T239:T261").Select

Selection.Copy

Range("S239").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H239:H261").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S277:S299").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T277:T299").Select

Selection.Copy

Range("S277").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H277:H299").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S320:S337").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T320:T337").Select

Selection.Copy

Range("S320").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H320:H337").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S353:S370").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T353:T370").Select

Selection.Copy

Range("S353").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H353:H370").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S391:S405").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T391:T405").Select

Selection.Copy

Range("S391").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H391:H405").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S421:S435").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T421:T435").Select

Selection.Copy

Range("S421").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H421:H435").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S456:S470").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T456:T470").Select

Selection.Copy

Range("S456:S470").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H456:H470").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S486:S500").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T486:T500").Select

Selection.Copy

Range("S486").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H486:H500").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S521:S535").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T521:T535").Select

Selection.Copy

Range("S521").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H521:H535").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S551:S565").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T551:T565").Select

Selection.Copy

Range("S551").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H551:H565").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S586:S603").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T586:T603").Select

Selection.Copy

Range("S586").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H586:H603").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S619:S636").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T619:T636").Select

Selection.Copy

Range("S619").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H619:H636").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S657:S691").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T657:T691").Select

Selection.Copy

Range("S657").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H657:H691").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S707:S741").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T707:T741").Select

Selection.Copy

Range("S707").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H707:H741").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S762:S776").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T762:T776").Select

Selection.Copy

Range("S762").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H762:H776").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S792:S806").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T792:T806").Select

Selection.Copy

Range("S792").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H792:H806").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S827:S866").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T827:T866").Select

Selection.Copy

Range("S827").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H827:H866").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S882:S921").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T882:T921").Select

Selection.Copy

Range("S882").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H882:H921").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S942:S962").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T942:T962").Select

Selection.Copy

Range("S942").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H942:H962").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S978:S998").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T978:T998").Select

Selection.Copy

Range("S978").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H978:H998").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S1019:S1034").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T1019:T1034").Select

Selection.Copy

Range("S1019").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H1019:H1034").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S1050:S1065").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T1050:T1065").Select

Selection.Copy

Range("S1050").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H1050:H1065").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S1086:S1099").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T1086:T1099").Select

Selection.Copy

Range("S1086").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H1086:H1099").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S1115:S1128").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T1115:T1128").Select

Selection.Copy

Range("S1115").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H1115:H1128").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S1149:S1164").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T1149:T1164").Select

Selection.Copy

Range("S1149").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H1149:H1164").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S1180:S1195").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T1180:T1195").Select

Selection.Copy

Range("S1180").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H1180:H1195").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S1216:S1234").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T1216:T1234").Select

Selection.Copy

Range("S1216").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H1216:H1234").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S1250:S1268").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T1250:T1268").Select

Selection.Copy

Range("S1250").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H1250:H1268").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S1289:S1309").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T1289:T1309").Select

Selection.Copy

Range("S1289").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H1289:H1309").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S1325:S1345").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T1325:T1345").Select

Selection.Copy

Range("S1325").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H1325:H1345").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S1366:S1379").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T1366:T1379").Select

Selection.Copy

Range("S1366").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H1366:H1379").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S1395:S1408").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T1395:T1408").Select

Selection.Copy

Range("S1395").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H1395:H1408").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Range("S1421:S1426").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("T1421:T1426").Select

Selection.Copy

Range("S1421").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("H1421:H1426").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Rows("27:31").Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Rows("32:35").Select

Selection.Copy

Rows("27:30").Select

ActiveSheet.Paste

Range("B27:B30").Select

Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = "=Home!R[-11]C[17]"

Range("B32:B35").Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Rows("87:91").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlUp

ActiveWindow.ScrollRow = 14

Range("A14").Select

Sheets("Home").Select

Range("W1").Select

Selection.Copy

Range("S16").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

ActiveWindow.ScrollRow = 14

Range("A14").Select

MsgBox "Les valeurs sont archivées! Vous pouvez commencer à saisir vos données !"

End If

End Sub

Le 12/05/2014 à 16:56
Sheets("Suivi NCRE").Select
Range("S111:S125").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

=

Sheets("Suivi NCRE").Range("S111:S125").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

En partant de là tu devrais diviser par 3 le nombre de lignes de code. Jusqu'a qu'il n'y ait AUCUN select.

Après je voudrais bien y jetter un oeil mais selon mes calculs tu pourrais avec un boucle, transformer ceci en 8 lignes.

Le 12/05/2014 à 17:00

Bonjour,

Merci beaucoup pour cette réponse claire et rapide.

Bien à vous.

Le 13/05/2014 à 02:54

Bonjour,

Je suis débutant en VBA, un collègue m'a fais un programme mais j'ai plusieurs longues listes de code que je voudrais simplifier

Est-ce possible ?

Voici une liste de code:

Sheets("départ").Range("1:1").Insert
Sheets("départ").Range("a1").Value = Sheets("feuil13").Range("e7")
Sheets("départ").Range("b1").Value = Sheets("feuil13").Range("h1") & " " & Sheets("feuil13").Range("e7")
Sheets("départ").Range("c1").Value = Sheets("feuil13").Range("h2") & " " & Sheets("feuil13").Range("e7")
Sheets("départ").Range("d1").Value = Sheets("feuil13").Range("h3") & " " & Sheets("feuil13").Range("e7")
Sheets("départ").Range("e1").Value = Sheets("feuil13").Range("h4") & " " & Sheets("feuil13").Range("e7")
Sheets("départ").Range("f1").Value = Sheets("feuil13").Range("h5") & " " & Sheets("feuil13").Range("e7")
Sheets("départ").Range("g1").Value = Sheets("feuil13").Range("h6") & " " & Sheets("feuil13").Range("e7")
Sheets("départ").Range("h1").Value = Sheets("feuil13").Range("i1") & " " & Sheets("feuil13").Range("e8")
Sheets("départ").Range("i1").Value = Sheets("feuil13").Range("i2") & " " & Sheets("feuil13").Range("e8")
Sheets("départ").Range("j1").Value = Sheets("feuil13").Range("i3") & " " & Sheets("feuil13").Range("e8")
Sheets("départ").Range("k1").Value = Sheets("feuil13").Range("i4") & " " & Sheets("feuil13").Range("e8")
Sheets("départ").Range("l1").Value = Sheets("feuil13").Range("i5") & " " & Sheets("feuil13").Range("e8")
Sheets("départ").Range("m1").Value = Sheets("feuil13").Range("i6") & " " & Sheets("feuil13").Range("e8")
Sheets("départ").Range("o1").Value = Sheets("feuil13").Range("t18")
Sheets("départ").Range("p1").Value = Sheets("feuil13").Range("h7")
Sheets("départ").Range("q1").Value = Sheets("feuil13").Range("i7")
Sheets("départ").Range("r1").Value = Sheets("feuil13").Range("b1")
Sheets("départ").Range("s1").Value = Sheets("feuil13").Range("b8")
Sheets("départ").Range("t1").Value = Sheets("feuil13").Range("b5")
Sheets("départ").Range("u1").Value = Sheets("feuil13").Range("b6")
Sheets("départ").Range("v1").Value = Sheets("feuil13").Range("b9")
Sheets("départ").Range("w1").Value = Sheets("feuil13").Range("b10")
Sheets("départ").Range("x1").Value = Sheets("feuil13").Range("b11")
Sheets("départ").Range("y1").Value = Sheets("feuil13").Range("b12")
Sheets("départ").Range("ae1").Value = Sheets("feuil13").Range("a22")
Sheets("départ").Range("af1").Value = Sheets("feuil13").Range("a27")
Sheets("départ").Range("ag1").Value = Sheets("feuil13").Range("a32")
Sheets("départ").Range("ah1").Value = Sheets("feuil13").Range("a37")
Sheets("départ").Range("ai1").Value = Sheets("feuil13").Range("a42")
Sheets("départ").Range("aj1").Value = Sheets("feuil13").Range("a47")
Sheets("départ").Range("ak1").Value = Sheets("feuil13").Range("e10")
Sheets("départ").Range("al1").Value = Sheets("feuil13").Range("e12")
Sheets("départ").Range("am1").Value = Sheets("feuil13").Range("e14")
Sheets("départ").Range("an1").Value = Sheets("feuil13").Range("e1")
Sheets("départ").Range("ao1").Value = Sheets("feuil13").Range("e2")
Sheets("départ").Range("ap1").Value = Sheets("feuil13").Range("b3")
Sheets("départ").Range("ba1").Value = Sheets("feuil13").Range("fc1")
Sheets("départ").Range("bb1").Value = Sheets("feuil13").Range("fd1")
Sheets("départ").Range("bc1").Value = Sheets("feuil13").Range("fe1")
Sheets("départ").Range("bd1").Value = Sheets("feuil13").Range("ff1")
Sheets("feuil57").Range("2:2").Insert
Sheets("feuil57").Range("a2") = Sheets("feuil13").Range("e1").Value
Sheets("feuil57").Range("b2") = Sheets("feuil13").Range("e2").Value
Sheets("feuil57").Range("c2").Value = Sheets("feuil13").Range("b5")
Sheets("feuil57").Range("d2").Value = Sheets("feuil13").Range("b6")
Sheets("feuil57").Range("e2").Value = Sheets("feuil13").Range("a2")
Sheets("feuil57").Range("f2").Value = Sheets("feuil13").Range("b9")
Sheets("feuil57").Range("g2").Value = Sheets("feuil13").Range("b10")
Sheets("feuil57").Range("h2").Value = Sheets("feuil13").Range("b12")
Sheets("feuil57").Range("i2").Value = Sheets("tickets départs").Range("c7")
Sheets("feuil57").Range("j2").Value = Sheets("tickets départs").Range("d7")
Sheets("feuil57").Range("k2").Value = Sheets("feuil13").Range("b9")
Sheets("feuil57").Range("l2").Value = Sheets("feuil13").Range("b12")
Sheets("feuil57").Range("m2").Value = Sheets("motif").Range("c46")
Sheets("feuil57").Range("n2").Value = Sheets("motif").Range("d46")
Sheets("feuil57").Range("o2").Value = Sheets("feuil13").Range("fg9")
Sheets("feuil57").Range("p2").Value = Sheets("feuil13").Range("fg12")
Sheets("feuil57").Range("k2").Value = Sheets("feuil13").Range("b9")
Sheets("feuil57").Range("q2").Value = Sheets("feuil13").Range("c15")
Sheets("feuil57").Range("r2").Value = Sheets("feuil13").Range("c16")
Sheets("feuil57").Range("s2").Value = Sheets("feuil13").Range("c17")
Sheets("feuil57").Range("t2").Value = Sheets("feuil13").Range("c18")
Sheets("feuil57").Range("u2").Value = Sheets("feuil13").Range("c19")
Sheets("feuil57").Range("v2").Value = Sheets("feuil13").Range("c20")
Sheets("feuil57").Range("w2").Value = Sheets("feuil13").Range("e15")
Sheets("feuil57").Range("x2").Value = Sheets("feuil13").Range("e16")
Sheets("feuil57").Range("y2").Value = Sheets("feuil13").Range("e17")
Sheets("feuil57").Range("z2").Value = Sheets("feuil13").Range("e18")
Sheets("feuil57").Range("aa2").Value = Sheets("feuil13").Range("e19")
Sheets("feuil57").Range("ab2").Value = Sheets("feuil13").Range("e20")
Sheets("feuil57").Range("ae2").Value = Sheets("feuil13").Range("e12")
Sheets("feuil57").Range("af2").Value = Sheets("feuil13").Range("e14")
Sheets("feuil57").Range("ac2").Value = Sheets("feuil13").Range("c15")
Sheets("feuil57").Range("ad2").Value = Sheets("feuil13").Range("e52")
Application.ScreenUpdating = True
Le 13/05/2014 à 15:34

Bonjour,

Merci beaucoup.

Rechercher des sujets similaires à "simplification redondances code"