Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'Note ici les noms des feuilles concernées, séparées par des virgules:
Feuilles_concernées = ",Feuil1,Feuil2,Feuil3,Feuil4,Feuil5,Feuil6,Feuil7,Feuil8,"
'si le clic a lieu dans une feuille de la liste
If InStr(Feuilles_concernées, "," & Sh.Name & ",") > 0 Then
'si on aun cliqué une cellule seulement
If Target.Count = 1 Then
'et si cette cellule appartient à la plage A2:C25
If Not Intersect(Target, Sh.Range("A2:C25")) Is Nothing Then
'on incrémente
Target = Target + target.column
End If
End If
End If
End Sub