Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C4]) Is Nothing Then Exit Sub
If FilterMode Then ShowAllData 'si la feuille est filtrée
If Cells(Rows.Count, 3).End(xlUp).Row > 3 Then Cells(Cells(Rows.Count, 3).End(xlUp).Row + 1, 3) = [C4]
End Sub