Simplification d' une macro

[nice]

Bonsoir,
Je cherche à simplifier la macro ci dessous
Merci infiniment pour votre aide

Feuil14.Range("B4:B19").Copy
With Feuil27.Range("B2")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With

Feuil14.Range("D4😀19").Copy
With Feuil27.Range("D2")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With

With Feuil14
.Range("F4:F19,H4:H19,J4:J19,L4:L19").Copy Feuil27.Range("F2")
End With

Feuil14.Range("P4😛19").Copy
With Feuil27.Range("B18")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With

Feuil14.Range("R4:R19").Copy
With Feuil27.Range("D18")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With

With Feuil14
.Range("T4:T19,V4:V19,X4:X19,Z4:Z19").Copy Feuil27.Range("F18")
End With

Feuil14.Range("AD4:AD19").Copy
With Feuil27.Range("B34")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With

Feuil14.Range("AF4:AF19").Copy
With Feuil27.Range("D34")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With

With Feuil14
.Range("AH4:AH19,AJ4:AJ19,AL4:AL19,AN4:AN19").Copy Feuil27.Range("F34")
End With

 

[Staple1600]

Re : Simplification d' une macro

Bonsoir nice, le fil, le forum


Une possibilité de simplification

Sub nnn()
Dim t, tt, i&

t = Split("D419/B4:B19/P4:P19/R4:R19/AD4:AD19/AF4:AF19", "/")
tt = Split("d2/b2/b18/d18/b34/d34", "/")

With Feuil2
    For i = 0 To UBound(t)
        .Range(CStr(t(i))).Copy Feuil3.Range(CStr(tt(i)))
    Next i
        .Range("F4:F19,H4:H19,J4:J19,L4:L19").Copy Feuil3.Range("F2")
        .Range("T4:T19,V4:V19,X4:X19,Z4:Z19").Copy Feuil3.Range("F18")
        .Range("AH4:AH19,AJ4:AJ19,AL4:AL19,AN4:AN19").Copy Feuil3.Range("F34")
End With
End Sub

PS: adapter les noms des feuilles
que j'ai changé chez moi en vue de tester mon code

 

[nice]

Re : Simplification d' une macro

Bonjour,
Je viens d'adapter le code et cela fonctionne parfaitement
Merci infiniment