Copier une plage de données de plusieurs onglets

Bonjour à vous,

Je souhaite copier la même plage de données de plusieurs onglets ("E56:U86") entre l'onglet Début et l'onglet Fin et les coller ensuite dans l'onget Macro à partir de la colonne H. Voilà le code que j'ai écrit. Cependant, il ne fonctionne pas.

Je vous remercie pour votre aide.

Sub Macro1()

‘False pour supprimer les invites et alertes pendant l’exécution de la macro

Application.DisplayAlerts = False

‘Sélectionne l’onglet Début

Sheets("Début>>").Select

ActiveSheet.Next.Select

While ActiveSheet.Name <> "<<Fin"

‘Condition à exécuter

'Sélectionne les cellules E56 à U86 dans les feuilles actives

With ActiveSheet.Range("E56:U86").Select

'Copie les cellules E56 à U86 dans les feuilles actives

With Worksheets("Macro")

With .Range("H65536").End(xlUp)(2)

.PasteSpecial xlPasteValues

End With

End With

End With

Wend

‘Valeur par défaut pour valider la macro Boolean

Application.DisplayAlerts = True

End Sub

Hello,

1) Tu ne copies pas ta plage de cellule.

2)Tu ne changes pas de feuille.

Voici ton code modifié :

Sub Macro1()
'False pour supprimer les invites et alertes pendant l’exécution de la macro
Application.DisplayAlerts = False

'Sélectionne l’onglet Début
Sheets("Début>>").Select
ActiveSheet.Next.Select

While ActiveSheet.Name <> "<<Fin"
'Condition à exécuter
'Sélectionne les cellules E56 à U86 dans les feuilles actives
With ActiveSheet.Range("E56:U86").Select
    'Copie les cellules E56 à U86 dans les feuilles actives
    Selection.Copy
    With Worksheets("Macro")
        With .Range("H65536").End(xlUp)(2)
        .PasteSpecial xlPasteValues
        End With
    End With
End With
ActiveSheet.Next.Select
Wend

'Valeur par défaut pour valider la macro Boolean
Application.DisplayAlerts = True
End Sub

R@g

Merci !