Public Sub SelectionChange(ByVal LaFeuille As Worksheet, _
ByVal Cible As Range, ByVal Appliquer As Boolean)
PositImages LaFeuille, Cible(1, 1)
If Cible.Rows.Count <> 1 Or Cible.Columns.Count <> 1 Then Exit Sub
If Cible.Row < 4 Or Cible.Row > LaFeuille.ListObjects(1).ListRows.Count + 4 Then Exit Sub
If Cible.Column = 7 Then
ReDim T(1 To 1, 1 To 11)
Set PlgLgn = Intersect([B:L], Cible.EntireRow)
If Appliquer Then UFmAppliquer.Proposer Cible.Interior.Color
Co.C = Cible.Interior.Color
On Error Resume Next
Do While ActiveCell.Address = Cible.Address
If Err Then Exit Sub
If Cible.Interior.Color <> Co.C Then
Co.C = Cible.Interior.Color: MàJLigne
If Appliquer Then UFmAppliquer.Proposer Cible.Interior.Color
End If: DoEvents: Loop
ElseIf Cible.Column = 8 Then
With New MSForms.DataObject: .SetText Cible.Value: .PutInClipboard: End With
If Appliquer Then UFmAppliquer.Proposer Cible.Offset(, -1).Interior.Color
End If
End Sub