Salut,
Un select case devrait faire l'affaire :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Activé au changement de sélection de cellule seulement en colonne 1 et 2 et en dessous de la ligne 13
with target
if .cells.count >1 then exit sub 'plusieurs cellules selectionnées
select case .column
case 4,8,12
select case .row
case 12 to 16,20 to 24,30 to 34 :definir("travaux")
end select
end select
end with
End Sub
A+++
ps: il vaut mieux eviter les accents dans le nom de procédures