Re Carlos,
Alors tu peux la jouer comme ça :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("Titre"), Target) Is Nothing Then
If Range("B1") = "" Then
Range("B1") = Target
Else
Range("B" & Range("B65536").End(xlUp).Row + 1) = Target
End If
Cancel = True
End If
End Sub
Autrement dit, si la cellule B1 est déjà occupée, rechercher la première cellule vide de la colonne B.
A+
Horatio