Insertion date sur Excel

Pas 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

Bonjour,
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!!!

Voici 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

Bonjour, 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