Bonjour,

Si, par inadvertance, je clique sur plus d'une cellule de la plage "AF11:AF28", cela génère une erreur... compréhensible.

Pour essayer de corriger ça,
j'ai remplacé :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If Target.Row > 10 And Target.Row < 29 And Target.Column = 32 Then
par :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If Not Application.Intersect(Target, Range("AF11:AF28")) Is Nothing Then
.

Mais, le problème reste manifestement entier !
Ici le code un peu plus complet :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
'-- remplace ligne suivante --
    If Not Application.Intersect(Target, Range("AF11:AF28")) Is Nothing Then
 
    '-- remplacé par ligne antérieure :
'    If Target.Row > 10 And Target.Row < 29 And Target.Column = 32 Then   'colonne AF
    '--
 
    If Target.Offset(0, 2).Value = "<<" Then
        Target.Offset(0, 2).Value = ""
    Else
        Target.Offset(0, 2).Value = "<<"
    End If
J'en appelle donc à vos lumières et vous remercie d'avance pour votre aide.
Cdt