Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'ce type de procédure utilise un select case
'c'est à dire que suivant le numéro de la colonne choisi on renvoi un ordre
'ici, on test le numéro de la colonne cliqué
'target=cellule active
'.column =le numéro de sa colonne
Select Case Target.Column
'si le numéro de la colonne est 3, on renvoi le message pour la colonne C
Case 3: MsgBox 'vous avez cliqué en colonne C'
'si le numéro est 5, on renvoi l'autre message
Case 5: MsgBox 'vous avez cliqué en colonne E'
'fin du select case
End Select
End Sub