bonjour a tous
je souterais limiter la macro suivante a certaines liggnes de ma feuille de calcul par exemple les lignes 10,16 et 22

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
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 
     With Selection.Font
     Selection.Font.ColorIndex = 7
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 7
        Cancel = True
    End With
 
End Sub
d'avance je remercie tous ceux qui se pencheront sur mon problème qui me bloque