Copier lignes sélectionnées dans classeur fermé

Super, ca fonctionne . En revanche j'ai remplacé le double clic par le clic droit car comme je te l'ai expliqué avant le double clic insère une date après avoir effectué la macro, même avec Cancel = true

Pour ce qui est de colmater les trous laissés par les lignes supprimées, peut-on utiliser un système de tri ? tel que :

.Range("H1") = .Range("H1")

Hummm H1=H1 ??? sûrement qu'ont peu faire ça jusque demain

Essaye plutôt ça..

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Ligne As Long, Col As Long, Derligne As Long
    Derligne = Cells(Rows.Count, 2).End(xlUp).Row
    Cancel = True
    If Not Intersect(Target, Range("H" & 3 & ":H" & Derligne)) Is Nothing And Target.Count = 1 Then
        If MsgBox("Voulez vous supprimer la ligne " & Target.Row & " ?", vbOKCancel + vbQuestion) = vbOK Then
            'Remonte les lignes suivantes
            For Ligne = Target.Row + 1 To Derligne
                For Col = 2 To 7
                    Cells(Ligne - 1, Col) = Cells(Ligne, Col)
                Next Col
            Next Ligne
           Range(Cells(Derligne, 2), Cells(Derligne, 7)).ClearContents
        End If
    End If
End Sub

Cloture ce poste, si encore question ouvre une autre discution.

A+

Et bien nous voilà arrivé au bout Merci pour cette aide précieuse. Je vais pouvoir mettre ce système en place rapidement.

Pour ce qui est de l'optimisation avec un "code de pro", tu préfère enchaîner directement sur ce poste en créer un autre. Tu me dis quels sont les documents à fournir sur lesquels tu souhaites travailler