[VB.NET] Modifier une cellule d'une ListView

Private Sub Insertion()  

 InitialiseListView()  
 lvw_Sources.View = View.Details  

 lvw_Sources.Columns.Add("Pays", 60, HorizontalAlignment.Left)  
 lvw_Sources.Columns(0).Width = 100  
 lvw_Sources.Columns.Add("Langue", 60, HorizontalAlignment.Left)  
 lvw_Sources.Columns(1).Width = 100  

 Dim MaLigne As ListViewItem = New ListViewItem(New String() {"France", "Français"})  
 lvw_Sources.Items.Add(MaLigne)  
 MaLigne = New ListViewItem(New String() {"Angleterre", "Anglais"})  
 lvw_Sources.Items.Add(MaLigne)  
 MaLigne = New ListViewItem(New String() {"Espagne", "Espagnol"})  
 lvw_Sources.Items.Add(MaLigne)  
 MaLigne = New ListViewItem(New String() {"Italie", "Italien"})  
 lvw_Sources.Items.Add(MaLigne)  

End Sub  

Private Sub InitialiseListView()  
 Me.lvw_Sources.Items.Clear()  
 Me.lvw_Sources.Columns.Clear()  
End Sub  

Private Sub lvw_Sources_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles lvw_Sources.ItemSelectionChanged  

 Dim LaLigne As ListViewItem  
 Dim Message As New System.Text.StringBuilder  

 If Not (lvw_Sources.SelectedIndices.Count.Equals(0)) Then  
  LaLigne = lvw_Sources.SelectedItems(0)  
  Message.AppendLine("Sélection de : ")  
  Message.AppendLine(String.Format("{0}{1}", "Pays : ", LaLigne.SubItems(0).Text))  
  Message.AppendLine(String.Format("{0}{1}", "Langue : ", LaLigne.SubItems(1).Text))  
  LaLigne.SubItems(0).Text = "Modifier : "  
  LaLigne.SubItems(1).Text = "par Lupin"  
 End If  

 If Not (String.IsNullOrEmpty(Message.ToString)) Then  
  MsgBox(Message.ToString)  
 End If  

End Sub