Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim D As Object 'déclare la variable D (onglet Datas)
Dim NC As Long 'déclare la variable NC (Nombre de Cellules)
Dim COL As Integer 'déclare la variable COL (COLonne)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
Set D = Sheets("Datas") 'définit l'onglet D
NC = Application.Rows.Count 'définit le nombre de cellules dans une colonne
If Selection.Cells.Count = NC Then 'condition : si le nombre de cellules sélectionnées est égal à NC
COL = ActiveCell.Column 'définit la colonne COL
'définit la cellule de destination DEST (A1 si A1 est vide, sinon la première cellule vide de la ligne 1)
Set DEST = IIf(D.Range("A1").Value = "", D.Range("A1"), D.Cells(1, Application.Columns.Count).End(xlToLeft).Offset(0, 1))
Columns(COL).Copy DEST 'copie la colonne dans DEST
End If 'fin de la condition
End Sub