bonjour a vous tous

dans ce bout de 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
Private Sub CommandButton8_Click()
     Dim L As Long, c As Byte
Dim LargeurCol As Single, MaHauteur As Single
Application.ScreenUpdating = False
  Application.EnableEvents = False
    With Worksheets("Facture")
    'recherche ligne pour écriture
        L = .Range("B65536").End(xlUp).Row
        '=========================NUMERO===============================
        For I = 1 To Me.ListView1.ListItems.Count
        '<====================tranche/commentaire=========================
            .Range("C" & L + I).Value = Me.ListView1.ListItems(I).ListSubItems(1).Text
 
            If UCase(.Range("C" & L + I).Value) <> .Range("B" & L + I).Value Then
               .Range("C" & L + I).Font.Bold = True
               Else
             If LCase(.Range("C" & L + I).Value) <> .Range("B" & L + I).Value Then
               .Range("C" & L + I).Font.Size = Italic
            End If
            End If
End Sub
comment faire pour que la distinction entre la ligne 'Tranche" qui est en Ucase et le commentaire qui est en Lcase puisse cohabiter l'un après l'autre dans la feuille après l'appui sur le bouton
en fait si "=ucase alors Lcase=false où l'inverse

j'èspère etre assez clair

Pascal