controle ListView1

Private Sub UserForm_Initialize()
Dim Cell As Range
Dim X As Byte, i As Byte
Dim k As Integer
Dim VarFeuille As String

VarFeuille = 'Feuil2' 'definit la feuille cible ( à adpater pour ton projet )

'derniere ligne non vide dans la colonne 'S' de la feuille choisie
k = Sheets(VarFeuille).Range('S65536').End(xlUp).Row

With ListView1 'parametrage des entetes de colonne( titre et largeur)
With .ColumnHeaders
    .Clear
    .Add , , 'Nom', 70
    .Add , , 'Prenom', 70
    .Add , , 'Adresse', 100
End With
     
For Each Cell In Sheets(VarFeuille).Range('S2:S' & k)

X = X + 1
.ListItems.Add , , Cell 'ajout donnée colonne S dans ListView
For i = 1 To 3 'boucle sur les colonnes T à V pour ajouter les données dans la ListView
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, i)
Next i
Next

End With
End Sub

VarFeuille = 'Feuil1' 'definit la feuille cible ( à adpater pour ton projet )