Bonjour,

Comment désélectionner cette MEF (pour imprimer la Feuille, avant impression, par exemple) ?
J'ai bien essayé (sans conviction) de sélectionner une cellule hors de la plage zone_saisie mais ce qui marche quand on est sur la Feuille ne fonctionne évidemment plus si la sélection est faite par le 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
Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim entete_lign As String
Dim entete_col As String
Dim zone_saisies As String
Dim Bleu_Clair As String
 
    Bleu_Clair = RGB(91, 224, 255)
 
    entete_lign = "c6:abf6"
    entete_col = "a7:a15"
    zone_saisies = "c7:abf15"
 
    With ActiveSheet
        .Range(entete_lign).Interior.ColorIndex = 2  
        .Range(entete_col).Interior.ColorIndex = 2   
    End With
 
    If Not Intersect(Range(zone_saisies), Target) Is Nothing And Target.Count = 1 Then
        Range("A" & ActiveCell.Row).Interior.Color = Bleu_Clair              
        Cells([6], Target.Column).Resize(1, 1).Interior.Color = Bleu_Clair   
    End If
 
End Sub
En vous remerciant par avance pour vos lumières,
Cordialement,
jp