وعليكم السلام
هل يمكن أن ترينا ما توصلت إليه حتى الآن ؟؟؟ وفي أي نقطة تعثرت ..

هذا هو الكود الذي استعملته الذي اشعر انه كثير جدا

Private Sub IMPRIMER_Click()
Application.ScreenUpdating = False
On Error Resume Next
Set ws = ThisWorkbook.Worksheets("TEST")
ws.Activate
If Me.TextBox1.Text = "EXCELLENT" Or Me.TextBox1.Value = "TRES BIEN" Then
ws.Range("B2") = Me.TextBox1.Text
ws.Select
    ws.Copy Before:=Sheets(2)
    Rows("43:84").Select
    Selection.Delete Shift:=xlUp
    Range("A36").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:UsersNoureddineDesktopCode Impression Page.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
    Sheets("TEST (2)").Select
    ActiveWindow.SelectedSheets.Delete
    ws.Select
    Range("B2").Select
    
ElseIf Me.TextBox1.Text = "MAUVAIS" Then
ws.Range("B2") = Me.TextBox1.Text

ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:UsersNoureddineDesktopCode Impression Page.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

End If

End Sub

ولكن تاتيني رسالة فأنا اريد ان اتفادها

لإيقاف الرسائل التحذيرية استخدم الخاصيةDisplayAlerts وهي من خصائص التطبيق Application واجعل القيمة تساوي False في بداية الكود ، ثم نفس السطر مع تغيير القيمة False إلى True لإرجاع الخاصية كما كانت.

بارك الله فيك و جزاك الله خيرا

وجزيت بمثله أخي الكريم والحمد لله الذي بنعمته تتم الصالحات