Bonsoir moutchec, le forum,
Pour l'envoi de mail, je ne sais pas faire.
Sinon, pour le reste: (on crée une copie de la feuille active en dernier, on la renomme "copie", on supprime les 2 premières lignes et on supprime l'onglet).
Private Sub CommandButton1_Click()
'Dim Destinataire As String
' Destinataire = "moutchec@gmail.com"
ActiveSheet.Copy After:=Sheets(Sheets.Count) 'fait une copie en dernier
With ActiveSheet
.Name = "copie" 'renomme la feuille --> copie
.Rows("1:2").Delete Shift:=xlUp 'efface les 2 premières lignes
' code macro pour envoie par mail
End With
Application.DisplayAlerts = False 'évite le message:Les feuilles sélectionnées peuvent contenir des données...cliquer sur supprimer
Sheets("copie").Delete 'supprime la feuille "copie"
Application.DisplayAlerts = True
End Sub
Reste à intercaler le code pour envoyer par mail....
Cordialement,