Private Sub Worksheet_Change(ByVal Target As Range)
'Range("D1:D601").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("CF1"), Unique:=True
If Target.Column = 4 Then
Call report2(Target.Value)
End If
End Sub
report2(valeur)
If valeur <> "" Then
With Sheets("Feuil1")
Set plage = .Range("G2:G" & .Cells(Rows.Count, "G").End(xlUp).Row)
dispoline = .Cells(Rows.Count, "G").End(xlUp).Offset(1).Row
If WorksheetFunction.CountIf(plage, valeur) = 0 Then .Cells(dispoline, "G") = valeur
End With
End If
End Sub