XL 2013 copier des valeurs de cellules distinctes d'un onglet à des cellules distinctes d'un autre onglet

[MCB]

Bonjour,
j'aurai besoin d'un peu d'aide, je voudrai créer une macro qui me permet de copier la valeur de plusieurs cellules distinctes d'un onglet vers d'autres cellules distinctes d'un autre onglet; J'ai réussi à commencer un code mais celui-ci est trop important car j'ai beaucoup de cellules et beaucoup d'onglets.
Pouvez-vous m'aider sur ce point?
Sub Macro5()
'
' Macro5 Macro
ActiveSheet.Range("$A$4:$BD$1000").AutoFilter Field:=26, Criteria1:="P18A"
Range("AZ2").Copy L01.Range("C4")
Selection.Copy
Sheets("L01").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HEURES ARRÊTS").Select
Range("AN2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("L01").Select
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
merci
MCB