Rebonjour Eric
Je comprends que lorsque on débute en VBA, c'est un peu comme vouloir parler le chinois quand on n'est pas né en chine.
Tu as trouvé, c'est bien, tu aurais gagné du temps et nous aussi à prendre 5 minutes pour expliquer clairement ton problème. Bien expliquer ce que l'on veut, c'est une forme de politesse pour ceux qui vont te lire.
Si Selection.Offset(0, 1).Range("A1").Select est ta solution,
Range("A1").Offset(0, 1).select est plus exact
J'ai pris le temps de lire le fichier texte de la macro, lui aussi peut être simplifié comme suit, si j'ai bien compris tes souhaits biensûr !!!
Sub Détailsmeubles()
Sheets("DONNEES").Select
Range("D1:E1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=Range("TABLEAU!A6").Value
Selection.AutoFilter Field:=2, Criteria1:="Caisson"
Range("D2:E2781").Copy
Sheets("TABLEAU").Range("B6").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Selection.AutoFilter Field:=2, Criteria1:="Tiroir"
Range("D2:E2781").Copy
Sheets("TABLEAU").Range("D6").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Selection.AutoFilter Field:=2, Criteria1:="Contre marque"
Range("C2:E2781").Copy
Sheets("TABLEAU").Range("F6").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Selection.AutoFilter Field:=2, Criteria1:="Accessoire"
Range("C2:E2781").Copy
Sheets("TABLEAU").Range("I6").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
ActiveSheet.ShowAllData
Sheets("TABLEAU").Select
End Sub
Bien cordialement
Bernard