[vba] Listview - initialize

Private Sub UserForm_initialize()
'affichage suivant taille écran
Me.StartUpPosition = 3
Me.Height = Application.Height
Me.Width = Application.Width


'initialisation listview

    With Me.ListView1
        With .ColumnHeaders
            .Clear
            .Add , , "Heure de saisie", 60
            .Add , , "CA", 60
            .Add , , "EBAUCHE", 40
            .Add , , "N° OF", 60
            .Add , , "Qté DE PIECES", 60
            .Add , , "TEMPS D'USINAGE", 60
            .Add , , "TEMPS DE MONTAGE", 60
            .Add , , "REMARQUE", 150
                      
                 
        End With

        'For Each c In
        For i = 3 To ActiveSheet.Range("A65536").End(xlUp).Row ' "3" PUISQUE DANS MON CLASEUR_SOURCE cela commence à la 3eme ligne
                                                        ' AYANT SERVI DE TEST LA LIGNE 1 EST VIDE...
  With UserForm1.ListView1
           .ListItems.Add , , ActiveSheet.Cells(i, 1).Value

      For j = 1 To 8
      .ListItems(.ListItems.Count).ListSubItems.Add , , ActiveSheet.Cells(i, j).Value
      Next j
     
   End With
Next i
        
        .View = 3                   ' type Report
        .Gridlines = True           ' affichage de lignes
        .FullRowSelect = True       ' sélection complète de la ligne
        .HideColumnHeaders = False  ' afficher les en-têtes de colonnes
        .LabelEdit = 1              ' ne pas autoriser la saisie
 
    End With
  

End Sub

Private Sub UserForm_initialize()
With Me.ListView1
    With .ColumnHeaders
        .Clear
        .Add , , "Heure de saisie", 60
        .Add , , "CA", 60
        .Add , , "EBAUCHE", 40
        .Add , , "N° OF", 60
        .Add , , "Qté DE PIECES", 60
        .Add , , "TEMPS D'USINAGE", 60
        .Add , , "TEMPS DE MONTAGE", 60
        .Add , , "REMARQUE", 150
    End With
    .View = 3                   ' type Report
    .Gridlines = True           ' affichage de lignes
    .FullRowSelect = True       ' sélection complète de la ligne
    .HideColumnHeaders = False  ' afficher les en-têtes de colonnes
    .LabelEdit = 1              ' ne pas autoriser la saisie
 
End With
Inilvw1

End Sub

Sub Inilvw1()
ListView1.ListItems.Clear
With Sheets("Feuil1")
    Set Plage = .Range("A3:A" & .Range("A65000").End(xlUp).Row)
    For Each Cel In Plage
        With ListView1
            .ListItems.Add , , Cel
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 2)
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 3)
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 4)
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 5)
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 6)
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 7)
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 10)
        End With
    Next
End With

End Sub