Re : copie de series de cellules
Suite
Sub CopieDonnéecolonne()
Dim DQE_COMPLET As Worksheet
Dim DQE As Worksheet
' Objet = Définir le nom de la feuille source
Set DQE_COMPLET = Sheets("DQE_COMPLET")
Set DQE = Sheets("DQE")
' Inscrire les données dans la feuille de destination
' Exemple pour copier uniquement la valeur (sans les formulles ni format)
DQE.Range("a3:a24").Copy
DQE_COMPLET.Range("A5:a26").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
' Copie l'intégralité
DQE.Range("c3:c24").Copy Destination:=DQE_COMPLET.Range("B5:b26")
DQE.Range("d3:d24").Copy Destination:=DQE_COMPLET.Range("c5:c26")
DQE.Range("b3:b24").Copy Destination:=DQE_COMPLET.Range("d5:d26")
DQE.Range("y3:y24").Copy Destination:=DQE_COMPLET.Range("E5:e26")
' DQE = le nom de la feuille en Objet + copie la Zone concerner
' Destination:= (ici pour envoyer les donner copier vers la feuille DQE_COMPLET en Objet aussi
' Les données sont copier à l' endroit voulu
' Etc ....
' Effacer les variables objet
Set DQE_COMPLET = Nothing
Set DQE = Nothing
End Sub