Amélioration de code + erreur 1 fois sur 2

Bonjour,

Aïe Aïe Aïe...
Les puristes vont avoir mal aux yeux... En "bidouillant" avec l'enregistreur de macro, et avec l'aide de quelques uns pour quelques bouts de code, j'arrive à transformer mon fichier d'export de stock en fichier intégrable par Amazon.
Cependant, exactement 1 fois sur 2 j'ai une erreur "La méthode select de la classe Range a échoué" à la ligne surlignée.
Pourquoi ?

Sub Macro1()
Dim Source As Workbook
Dim Cible As Range
Dim DerniereCellule As Range
    Set Source = Workbooks.Open("C:\Users\Gérard\Desktop\Export.xls")
    Set Cible = ThisWorkbook.Worksheets("Export").Range("A1")
    With Source.Worksheets("A")
        Set DerniereCellule = .Cells.SpecialCells(xlCellTypeLastCell)
        .Range(Cells(1, 1), DerniereCellule).Copy Cible
    End With
    Source.Saved = True
    Source.Close
Dim dlig As Long, lig As Long
  dlig = Range("L" & Rows.Count).End(xlUp).Row
  For lig = dlig To 2 Step -1
    If UCase(Cells(lig, 12)) = "PAS DE VPC" Then Rows(lig).Delete
  Next lig
Dim rng As Range
 Set rng = ThisWorkbook.Worksheets("EXPORT").Range("A1").CurrentRegion
 rng.Columns(12).SpecialCells(xlCellTypeBlanks) = "SANS CATEGORIE"
Dim I As Long
Dim SKU As Range
Dim QUANTITE As Range
Dim PRIX As Range
Dim CATEGORIE As Range
Dim ProductIdType As Range
Dim ItemCondition As Range
Dim AddDelete As Range
Dim WillShip As Range
Dim ExpeditedShipping As Range
Dim ItemNote As Range
Dim Fulfillment As Range
Set SKU = Range("A2:A" & Range("A2").End(xlDown).Row)
Set QUANTITE = Range("C2:C" & Range("C2").End(xlDown).Row)
Set PRIX = Range("G2:G" & Range("G2").End(xlDown).Row)
Set CATEGORIE = Range("L2:L" & Range("L2").End(xlDown).Row)
Set ProductIdType = Range("C2:C" & Range("C2").End(xlDown).Row)
Set ItemCondition = Range("E2:E" & Range("E2").End(xlDown).Row)
Set AddDelete = Range("G2:G" & Range("G2").End(xlDown).Row)
Set WillShip = Range("H2:H" & Range("H2").End(xlDown).Row)
Set ExpeditedShipping = Range("I2:I" & Range("I2").End(xlDown).Row)
Set ItemNote = Range("J2:J" & Range("J2").End(xlDown).Row)
Set Fulfillment = Range("K2:K" & Range("K2").End(xlDown).Row)
    Worksheets("EXPORT").Activate

    SKU.Select -----------------------> ERREUR

    Selection.Copy
    Worksheets("majamazonFR").Activate
    Range("A2").Select
    Worksheets("majamazonFR").Paste
    Worksheets("EXPORT").Activate
    SKU.Select
    Selection.Copy
    Worksheets("majamazonFR").Activate
    Range("B2").Select
    Worksheets("majamazonFR").Paste
    Worksheets("EXPORT").Activate
    PRIX.Select
    Selection.Copy
    Worksheets("majamazonFR").Activate
    Range("D2").Select
    Worksheets("majamazonFR").Paste
    Worksheets("EXPORT").Activate
    QUANTITE.Select
    Selection.Copy
    Worksheets("majamazonFR").Activate
    Range("F2").Select
    Worksheets("majamazonFR").Paste
    'Worksheets("EXPORT").Activate
    'CATEGORIE.Select
    'Selection.Copy
    'Worksheets("majamazonFR").Activate
    'Range("L2").Select
    'Worksheets("majamazonFR").Paste
Dim li As Long, lifin As Long
Application.ScreenUpdating = False
With Sheets("EXPORT")
  lifin = .Range("A" & Rows.Count).End(xlUp).Row
  For li = 2 To lifin
    If Left(.Range("A" & li), 1) = "B" Then
      Sheets("majamazonFR").Range("C" & li).Value = 1
    Else
      Sheets("majamazonFR").Range("C" & li).Value = 4
    End If
  Next li
End With
Set rng = ThisWorkbook.Worksheets("majamazonFR").Range("A1").CurrentRegion
 rng.Columns(5).SpecialCells(xlCellTypeBlanks) = "11"
Set rng = ThisWorkbook.Worksheets("majamazonFR").Range("A1").CurrentRegion
 rng.Columns(7).SpecialCells(xlCellTypeBlanks) = "a"
Set rng = ThisWorkbook.Worksheets("majamazonFR").Range("A1").CurrentRegion
 rng.Columns(8).SpecialCells(xlCellTypeBlanks) = "19"
Set rng = ThisWorkbook.Worksheets("majamazonFR").Range("A1").CurrentRegion
 rng.Columns(9).SpecialCells(xlCellTypeBlanks) = "N"
Set rng = ThisWorkbook.Worksheets("majamazonFR").Range("A1").CurrentRegion
 rng.Columns(10).SpecialCells(xlCellTypeBlanks) = "Envois quotidiens à la levée de 17h. LE spécialiste du voyage sur majamazonFR. Envois quotidiens, protégés. Satisfait ou remboursé. Plus de 5000 références dédiées au voyage (Récits, guides, rando, cartes, beaux livres, jeunesse...)"
Set rng = ThisWorkbook.Worksheets("majamazonFR").Range("A1").CurrentRegion
 rng.Columns(11).SpecialCells(xlCellTypeBlanks) = "DEFAULT"
Application.CutCopyMode = False
    ChDir "C:\Users\Gérard\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Gérard\Desktop\majamazonFR.txt", _
        FileFormat:=xlText, CreateBackup:=False
Worksheets("EXPORT").Range("A1").Cells.Clear
With Worksheets("majamazonFR").Rows("2:65536").EntireRow.Delete
End With
ActiveWorkbook.Save
End Sub

EDIT : Ajout du LANGAGE dans les balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.