Bonjour,
Dans ta feuille Activités remplace le code --> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) par celui ci-après
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 10 Or Target.Row < 3 Or Target.Row > Range("A65536").End(xlUp).Row Then Exit Sub
Cancel = True
If Target = Chr(81) Then
Target = Chr(163)
Else:
Target = Chr(81)
With Target.Offset(0, -3)
.Copy
.PasteSpecial Paste:=xlValues
End With
End If
End Sub
Si ok, n'oublie pas de cliquer sur le V vert pour cloturer le fil.
Amicalement