Insertion date sur Excel

Bonjour, j'ai mis votre code ça marche mais le soucis c'est que ce n'est pas le fait d'entrer une valeur qui renseigne la date mais le simple fait de cliquer sur la cellule en B. Est ce possible de mettre comme condition de renseigner une valeur??

Merci d'avance!!

@ggmisPas de problème, on va le faire déclencher au double clic comme ceci:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
If Target.Value = "" Then Exit Sub
ActiveCell.Offset(0, 1).Value = Now
End If
End Sub

@cs_Le PivertBonjour,
Je pense que la ligne 7 est en trop car ca ne fait apparaître la date que si je double clic dans une cellule renseignée. Ensuite le double clic ne me plaît pas, ce n'est pas possible de faire apparaître cette date au moment où je rentre une valeur dans la cellule??
En tout cas merci pour ces réponses!!!

@ggmisVoici a la sélection si la cellule est renseignée:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
If Target.Value = "" Then Exit Sub 'si cellule vide on sort
ActiveCell.Offset(0, 1).Value = Now
End If
End Sub

@cs_Le PivertBonjour, je reviens vers toi pour un autre besoin.
Maintenant que j'ai mes dates de création de colis je voudrais dans une autre feuille faire le total de mes colis expédié pour chaque mois en fonction de plusieurs critère (ces critères sont mes différentes colones du 1er tableau) par exemple l'urgence (faible, moyenne ou haute). Je ne sais pas si c'est clair mais en gros je veux avoir mon nombre de colis expédié en janvier avec l'urgence faible.

J'avais réussi avec une formule mais je ne savais pas comment prendre en compte la variable "date de création".

Merci d'avance