Bonjour,

Par souci d'optimisation (!), j'ai remplacé :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
If Target.Offset(0, 0).Value = "" Then
   Target.Offset(0, 0).Value = "o"
Else
   If Target.Offset(0, 0).Value = "o" Then
       Target.Offset(0, 0).Value = "x"
   Else
       Target.Offset(0, 0).Value = ""
   End If
End If
Par :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Target.Offset(0, 0).Value = IIf(Target.Offset(0, 0).Value = "", "o", IIf(Target.Offset(0, 0).Value = "o", "x", ""))
Ça fonctionne mais j'ai un doute sur le fait qu'on ne puisse pas faire mieux.

Merci pour vos lumières,
Cdt