XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2

[MATLEA]

Bonsoir le forum,

J'ai tenté d'utiliser la macro ci-dessous pour transférer les cellules comprises entre AQ77 et BB140 de la feuille 1 vers la feuille 2

Sub TransfererTableau()

' Déclaration des variables
Dim sourceFeuille As Worksheet
Dim cibleFeuille As Worksheet
Dim sourcePlage As Range
Dim destinationCellule As Range

' Définir les feuilles
Set sourceFeuille = ThisWorkbook.Sheets("Feuille1")
Set cibleFeuille = ThisWorkbook.Sheets("Feuille2")

' Définir la plage source et la cellule de destination
Set sourcePlage = sourceFeuille.Range("AQ77:BB140")
Set destinationCellule = cibleFeuille.Range("A5")

' Copier les valeurs (sans formules ni formats)
destinationCellule.Resize(sourcePlage.Rows.Count, sourcePlage.Columns.Count).Value = sourcePlage.Value

MsgBox "Transfert terminé avec succès.", vbInformation

End Sub

puis celle-ci

Sub TransfertDonnees()
Sheets("Feuille1").Range("AQ77:AX140").Copy
Sheets("Feuille2").Range("A1").PasteSpecial Paste:=xlPasteValues
End Sub

Pour activer ces macros j'ai essayé avec un bouton d'activation, rien ne se passe ou encore dans Développeur -EXécution puis Exécuter sub user form ce qui génère un message d'erreur, "erreur d'exécution 9, l 'indice n'appartient pas à la sélection.

Où est l'erreur et quel peut-être plus généralement le moyen de transférer les valeurs de cellules de la feuille 1 vers la feuille 2?

Merci les experts

 

[TooFatBoy]

Bonjour,

Pour savoir exactement où ça plante, il faut exécuter la macro en pas-à-pas (touche <F8>).

Mais déjà, es-tu sûr de tes noms de feuilles ?

 

[job75]

Bonsoir à tous,

Pour savoir exactement où ça plante, il faut exécuter la macro en pas-à-pas (touche <F8>).

Ce n'est pas nécessaire, le débogage colore en jaune la ligne de code.

A+

 

[MATLEA]

Bonsoir,

C'était bien un problème de nom de feuilles, je n'avais pas eu le réflexe. Merci pour la solution.
Cordialement.