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