Créer la copie d'1 plage de cellule sur 1 autre feuille (tableau,valeur...)

Bonjour à tous et bon WE,

Voilà, jusqu'à présent j'utilisais le bout de code ci-après pour faire une copie de ma feuille sur une autre feuille en fin de classeur et qui prenait comme nom la valeur en "O5". A présent je souhaite faire la même chose mais je ne veux copier que la plage "A1:H44" (tableau, valeur, largeur colonne etc...). Que dois je modifier pour arriver au bon résultat.

Set ws = Worksheets(ActivateSheet.Name)
ActiveSheet.Copy After:=Worksheets(Sheets.Count)
If ws.Range("O5").Value <> "" Then
ActiveSheet.Name = ws.Range("O5").Value
End If
ws.Activate

D'avance merci.

Salut Pigneau,

pour arriver à un bon résultat, même si on pourrait le faire "de tête", ce serait mieux de travailler sur un fichier...

A+

Bonjour à tous,

A la demande de Curulis57,

Voici l'ébauche de mon fichier, le code se trouve dans le Formulaire_copie_facture. Pour l'instant j'arrive à copier ma facture mais cela m'oblige à masquer les boutons. Je voudrais simplement faire une capture de la facture dans la plage "A1:H44" avec tableaux, contenu des cellules, colonnes à l'identique, etc...

J'espère que je serais compris par celui ou celle qui m'apportera son l'aide. Le code peut être amélioré certainement et je suis preneur avec quelques explications.

D'avance merci

Je relance ma demande, il n'y a personne qui a une solution.

Curulis57, j'ai pourtant partagé mon fichier.

Merci pour votre aide.