Aide pour finaliser mon petit fichier

Poster un fichier c'est bien.
Expliquer (dans le forum) le souci rencontré exactement ET montrer le code qui pose problème est mieux.
Pourquoi ? .. par ce que les soucis que tu rencontres peuvent interesser d'autres internautes... et le moteur de recherche n'est pas capable d'aller voir le texte explicatif que tu mets dans tes liens.

Option Explicit
Public Old_Selection: Public Derlig As Integer
Public champ, n, i, trouv?, ncol, Z, col1, col2, x, a, b, zone, EffaceCellule

'*** Traitement si le double-click est situ? en colonne A
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Not Application.Intersect(Target, Range("A18:A60")) Is Nothing Then
        If Target.Row < 18 Or Target.CountLarge > 1 Then Exit Sub

 Old_Selection = Target.Address
                  With Target.Borders
                         .Weight = xlThick                     '*** xlMedium   '*** Trait ?paisseur Moyen  '*** .LineStyle = xlDash  '*** Tiret-point
                         .ColorIndex = 3                        '*** Rouge
                         Worksheets("Site global").Range("J" & Target.Row - 0).Value = "A command?"            '*** Affiche en colonne '' (J)  "A command?"
           End With

'*** Report d'un enregistrement
Derlig = Sheets("Liste commande").Range("A60").End(xlUp).Row                                                          '*** Derni?re ligne de la colonne A
Range(ActiveCell, ActiveCell.Offset(0, 10)).Copy Sheets("Liste commande").Range("A" & Derlig + 1)
End If
End Sub

'*** Si clic dans cellule (J17) = "RESET TOTALE"
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("J17")) Is Nothing Then

        With Worksheets("Liste commande")
                                   .Range("A2:J60").Value = ""                                              '*** Les donn?es sont ?ffac?es
                                   .Range("A2:J60").Borders.LineStyle = xlContinuous            '*** Le cadre est mis en noir
                                   .Range("A2:J60").Borders.ColorIndex = 1                          '*** Color bordure noire
                                   .Range("A2:J60").Interior.ColorIndex = xlNone                    '*** Remets en blanc le fond des cellules
        With Worksheets("Site global")
                                  .Range("I18:J60").Value = ""                                                            '*** Les donn?es de la colonne (I) sont ?ffac?es
                                  .Range("A18:J60").Borders.LineStyle = xlContinuous                         '*** Le cadre est mis en noir
                                  .Range("A18:J60").Borders.ColorIndex = 1                                       '*** Color bordure noire
End With
End With
End If
End Sub

'#Effacer une ligne entrer par erreur "Site global" et "Liste commande"

'*** code a l'essai mais fonctionne pas

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim FondCellule, Donn?e As Long
          Cancel = True
With Worksheets("Liste commande").Activate
       With Selection
          If .Row = 1 Or .Row = 41 Then Exit Sub
          
    For FondCellule = 1 To 9: Cells(.Row, FondCellule).Interior.ColorIndex = xlNone: Next FondCellule
    For Donn?e = 1 To 11: Cells(.Row, Donn?e).Value = "RE": Next Donn?e      'Efface toute la ligne s?lectionn?e

End With
End With
End Sub