Je ne comprends pas trop cette sub ... pouvez vous me l expliquer un peu

merci d avance



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim listdon As Variant
Dim lign As Byte
Dim donexp As String
 
 
With Target
        If .Column <> 4 Or .Row < 27 Then Exit Sub
        lign = .Row - 26
        listdon = Array("CLI", "REC", "PAY", "PAY", "DS", "SF", "VD", "AMCCY1", "AMCCY2", "CCYO", "CCYT", "RATE")
        donexp = ""
        For Each donnée In listdon
                donexp = donexp & Range(donnée & "_" & lign)
        Next donnée
        Sheets(nom).Range("M" & lign).Value = donexp
End With
 
Call Transf_Data
Call contpart
Call TypOpe
Call transvalneg
 
End Sub