Bonjour,

j'aimerais rajouter a mon code le fait de click en dehors de mon tableau "cartes" cela me fait efface le format zone....
voila 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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim zone As Range
    Set zone = ActiveCell.CurrentRegion
 
    If Not Intersect(Target, Range("Cartes")) Is Nothing Then
 
        Cells.FormatConditions.Delete
 
        With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE(" & zone.Cells(1).Address(False, famse) & ")=" & ActiveCell.Row)
        .Interior.Color = 9420794
        .Font.Bold = True
        zone.Font.Size = 14
        End With
 
    End If
End Sub
Merci et bonne soirée