Dim fin As Integer, plage As Range, cellule As Range, i As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
fin = Range("F65536").End(xlUp).Row
Set plage = Range("A2:Q" & fin)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, plage) Is Nothing Then
For Each cellule In plage
If Target = cellule Then
With Sheets("Soumission")
If .Range("A29") = "" Then i = 0 Else i = i + 1
.Range("A29").Offset(i, 0) = "PRÉ VERNIS"
.Range("B29").Offset(i, 0) = Cells(5, Target.Column)
.Range("J29").Offset(i, 0) = Target.Value
Exit Sub
End With
End If
Next
End If
End Sub