Bonjour, ci dessous deux macro, la première marche bien avec le clic droit de la souris appelée "Target" dans la macro, sur la seconde je coince avec le nom de la barre d'espace.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("a2:a1000")) Is Nothing Then
Call transfert2
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal "barre d'espace" As Range)
If Not Application.Intersect(Target, Range("a2:a1000")) Is Nothing Then
Call transfert3
End If
End Sub
Merci pour votre aide
Bertrand