Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Intersect(Target, [A:A], Me.UsedRange)
If Target Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each Target In Target
If Target.Row > 1 And Target <> "" Then
ThisWorkbook.Names.Add "lig", Target.Row
Feuil2.[D13] = Date
Feuil2.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & _
Trim(Target & " " & Target(1, 2)) & Format(Date, " dd-mm-yyyy")
End If
Next
End Sub