en cliquant sur une cellule j'affiche une calculette pour des saisies, je voudrais le faire sur plusieurs colonnes mais je n'y arrive pas je suis bloqué que sur une seule colonne

[ALBAN1]

Bonjour , j’ai une formule que je n’arrive pas à modifier correctement est-ce que quelqu’un peut m’aider, en cliquant sur une cellule j’affiche une calculette pour des saisies, je voudrais le faire sur plusieurs colonnes mais je n’y arrive pas je suis bloqué que sur une seule colonne
Voici la formule que je tape
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
'On travaille sur la colonne 18
If Target.Count = 1 And Target.Column = 18 Then
If Calculette.Visible = True Then
Calculette.Top = ActiveWindow.Height / 2
Else
Calculette.Show
End If
Else
Unload Calculette
End If
End Sub

[Mimimathy]

Bonsoir
Ôte simplement dans la ligne

And Target.Column = 18 

Après pour que cela ne se diffuse pas sur des colonnes non voulues, faut voir le fichier