Bonjour,
C'est un peu particulier, un sujet déjà marqué comme "résolu" Tu as déjà trouvé ta solution??
Pas certain d'avoir bien compris, mais peut-être:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$5" Then Exit Sub
With Sheets("2018")
col = Application.Match(CDbl(Target), .[11:11], 0)
If IsError(col) Then MsgBox "Date inconnue": Exit Sub
For lig = 12 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(lig, 1) <> "" And .Cells(lig, col) <> "" Then Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = .Cells(lig, 1)
Next lig
End With
End Sub
Attention, il faudra sans doute ajouter l'un ou l'autre test ... si le code correspond aux attentes