Target past

Bonjour le forum

Une aide de votre part serait la bienvenue

le fichier vous en dira plus

Merci

Bonsoir,

Private Sub worksheet_beforerightclick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [A:A]) Is Nothing Then
        Worksheets("Feuil2").Range("H1:H7").Value = Worksheets("Feuil1").Range("A1:A7").Value
    End If
End Sub

Bonjour,

Ma vision de la chose.

Cdlt.

Bonjour,

Doivent-ils se reporter sur la même ligne que dans la feuil1 ou les uns à la suite des autres ?

Bonjour

C'est super, merci à tous les deux

Bonne journée