Erreur d'exécution 1004

Bonjour à tous,

Dans le cadre de la réalisation d'une macro qui copie colle les données en fonction d'une liste sélectionnée, j'ai une erreur d'exécution 1004 qui s'affiche.

Cela m'indique : "La méthode Range de l'object Global a échoué"

Voici le code :

Sheets("BDD").Select

Range("Thermo" & Feuil3.Range("B3").Value).Select

Selection.Copy

Sheets("Format").Select

Range("G4").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, 

SkipBlanks _ :=False, Transpose:=False

Merci d'avance pour votre aide

Bonjour,

Range("Thermo" & Feuil3.Range("B3").Value).Select

que souhaite-tu sélectionné la ?

As-tu un fichier à présenter ?

Je ne peux pas partager le fichier, les données sont des valeurs numériques ou des caractères qui sont à récupérer sur une feuille pour les copier dans une autre.

Tu ne peux pas faire un fichier exemple ? C'est quoi "Thermo"

Tous les .select sont inutiles.

Tu peux directement faire par exemple

Sheets("Feuil3").Range("B3").Copy

Voici le fichier ci-joint.

"Thermo" fait référence à la plage de données dans l'onglet "BDD" que je veux copier coller et j'ai l'impression que sur la ligne ou il y a le débogage, cela ne va pas chercher au bon endroit.

Remplace tout ton code par cela

Sub SelectionDonnees()

Dim WsF As Worksheet
Set WsF = Worksheets("Format")

With Sheets("BDD")
    .Range("D4:E73").Copy
    WsF.Range("B5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    .Range("D77:E102").Copy
    WsF.Range("H4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    .Range("D108:E134").Copy
    WsF.Range("M5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With

Set WsF = Nothing
End Sub

Il s'agissait d'un problème de liste que j'ai pu régler à l'aide du Gestionnaire de nom.

Merci pour votre aide !