Double click pour incrémenter reference dans onglet suivant

bonsoir,

pouvez vous m'aider à régler ce problème mon code VBA fonctionne très bien mais je ne peux pas faire un second clique dans la cellule suivante il place toutes mes référence en C15...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Interior.ColorIndex = 6 Then

Cancel = True

Sheets("DEVIS").Range("C15:C22").End(xlUp).Offset(1, 0) = Target

MsgBox "Référence copiée"

End If

End Sub

merci de votre aide

Bonjour

Joins ton fichier et on regardera ça !

Bye !