Select resultat.GetInt("etat")
            Case 1
                ListAnalyse.Add(CreateListItem(DateFR(resultat.GetString("dateprel"))&amont,"  "&resultat.GetString("heureprel")&affpest,"vert.png",ListAnalyse.AsView.Width, 70dip),resultat.GetInt("rowid"))
            Case 6
                ListAnalyse.Add(CreateListItem(DateFR(resultat.GetString("dateprel"))&amont,"  "&resultat.GetString("heureprel")&affpest,"verti.png",ListAnalyse.AsView.Width, 70dip),resultat.GetInt("rowid"))
            Case 2,3
                If resultat.GetString("plvconformitebacterio")="N" Or resultat.GetString("plvconformitechimique")="N" Then
                    ListAnalyse.Add(CreateListItem(DateFR(resultat.GetString("dateprel"))&amont,"  "&resultat.GetString("heureprel")&affpest,"orange.png",ListAnalyse.AsView.Width, 70dip),resultat.GetInt("rowid"))
                Else
                    ListAnalyse.Add(CreateListItem(DateFR(resultat.GetString("dateprel"))&amont,"  "&resultat.GetString("heureprel")&affpest,"jaune.png",ListAnalyse.AsView.Width, 70dip),resultat.GetInt("rowid"))
                End If
            Case 4
                ListAnalyse.Add(CreateListItem(DateFR(resultat.GetString("dateprel"))&amont,"  "&resultat.GetString("heureprel")&affpest,"bebe.png",ListAnalyse.AsView.Width, 70dip),resultat.GetInt("rowid"))
            Case 5
                ListAnalyse.Add(CreateListItem(DateFR(resultat.GetString("dateprel"))&amont,"  "&resultat.GetString("heureprel")&affpest,"interdit.png",ListAnalyse.AsView.Width, 70dip),resultat.GetInt("rowid"))
            Case 0
                ListAnalyse.Add(CreateListItem(DateFR(resultat.GetString("dateprel"))&amont,"  "&resultat.GetString("heureprel")&affpest,"gris.png",ListAnalyse.AsView.Width, 70dip),resultat.GetInt("rowid"))
        End Select