Bonjour à tous et encore meilleurs voeux pour 2015

je me suis lancé dans la création d'un userform avec Listview en m'étant inspiré de plusieurs discussion.
cependant au lancement de l'userform j'obtiens un message d'erreur 13 "Inompatibilité de type" et je ne comprends pas bien où se trouve l'erreur si vous aviez une idée

mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub UserForm_Initialize()
With Me.ListView1
    With .ColumnHeaders
        .Clear
        .Add , , "Commune", 60
        .Add , , "N° PV", 150
        .Add , , "Entrée", 80
        .Add , , "RD", 60
        .Add , , "Cat", 40
        .Add , , "Situation", 60
        .Add , , "Demandeur", 60
        .Add , , "Ref. Interne", 60
        .Add , , "Pétitionnaire", 60
        .Add , , "Adresse travaux", 60
    End With
End With
Dim cel As Range, plage As Range
With Sheets("PM")
    Set plage = .Range("A5: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, 9)
        End With
    Next
End With
 
End Sub
pourtant les exmples que je télécharge fonctionnent bien
cordialement