Private Sub ListBox1_Change()
If ListBox1.ListIndex < 0 Then Exit Sub
If Cells(9 + ListBox1.ListIndex, "h") = "G1" And IsDate(Cells(9 + ListBox1.ListIndex, "i")) Then
Label6 = "Ma Phrase " & Cells(9 + ListBox1.ListIndex, "i")
ElseIf Cells(9 + ListBox1.ListIndex, "h") = "G2" And Cells(9 + ListBox1.ListIndex, "j") = "Oui" Then
Label6 = "Ma Phrase "
ElseIf Cells(9 + ListBox1.ListIndex, "h") = "G3" And Cells(9 + ListBox1.ListIndex, "k") = "Oui" Then
Label6 = "Ma Phrase "
ElseIf Cells(9 + ListBox1.ListIndex, "h") = "G4" And IsDate(Cells(9 + ListBox1.ListIndex, "l")) Then
Label6 = "Ma Phrase " & Cells(9 + ListBox1.ListIndex, "l")
Else
Label6 = ""
End If
End Sub