Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Efface la mise en forme des colonnes A à L pour toutes les lignes
Me.Range("A:L").Interior.ColorIndex = 0
' Vérifie si la cellule sélectionnée est dans la colonne L
If Target.Column = 12 Then
' Surligne les cellules de la colonne A à L de la ligne entière
Me.Range("A" & Target.Row & ":L" & Target.Row).Interior.Color = RGB(255, 255, 0) ' Couleur jaune
End If
End Sub