With Me.Controls("ListView1")
if Sheets(Journal).Range("P" & Lig) <> "X" then
.ListItems.Add , "K" & Lig, Sheets(Journal).Range(Colonne & £Lig)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets(Journal).Range(Colonne1 & Lig)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets(Journal).Range(Colonne2 & Lig)
......................................................................................................
end if