bonjour a vous

je ne sais comment modifier le code ci dessous afin qu'il écrive avec le signe € dans la feuille en col F et G
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
Private Sub CommandButton8_Click()
    Dim L As Long, C As Byte
 
    With Worksheets("Commande")
        L = .Range("A65536").End(xlUp).Row
        For i = 1 To Me.ListView1.ListItems.Count
            .Range("A" & L + i).Value = Me.ListView1.ListItems(i).ListSubItems(1).Text
            If UCase(.Range("A" & L + i).Value) <> .Range("A" & L + i).Value Then
                .Range("A" & L + i).Font.Italic = True
            End If
            If Me.ListView1.ListItems(i).ListSubItems(2).Text <> "" Then
                .Range("B" & L + i).Value = Me.ListView1.ListItems(i).ListSubItems(2).Text
            End If
            If Me.ListView1.ListItems(i).ListSubItems(3).Text <> "" Then
                .Range("D" & L + i).Value = Me.ListView1.ListItems(i).ListSubItems(3).Text
            End If
            If IsNumeric(Me.ListView1.ListItems(i).ListSubItems(4)) Then
                .Range("E" & L + i).Value = CDbl(Me.ListView1.ListItems(i).ListSubItems(4).Text) 'q
            End If
            If IsNumeric(Me.ListView1.ListItems(i).ListSubItems(5)) Then
                .Range("F" & L + i).Value = CDbl(Me.ListView1.ListItems(i).ListSubItems(5).Text) 'pu
 
            End If
            If IsNumeric(Me.ListView1.ListItems(i).ListSubItems(9)) Then
                .Range("G" & L + i).Value = CDbl(Me.ListView1.ListItems(i).ListSubItems(9).Text) 'q*pu
 
            End If
                Next i
            End With
Merci par avance

Pascal