Copier le contenu d'une ligne dans une colonne/VBA

Sub Macro1()
Dim O1 As Worksheet 'déclare la variable O1 (Onglet 1)
Dim O2 As Worksheet 'déclare la variable O2 (Onglet 2)
Dim LI As Integer 'déclare la variable LI (LIgne)
Dim COL As Integer 'déclare la variable COL (COLonne)
Dim TC As Variant 'déclare la variable TC (Tableau de cellules)

Set O1 = Sheets("Feuil1") 'définit l'onglet O1 (à adapter)
Set O2 = Sheets("Feuil2") 'définit l'onglet O2 (à adapter)
LI = 9 'définit la ligne LI des données à copier (à adapter)
COL = 2 'définit la colonne COL où sont collées les données (à adapter)
'définit la tableau de cellules TC contenant les données
TC = O1.Range(O1.Cells(9, 6), O1.Cells(9, Application.Columns.Count).End(xlToLeft))
'renvoie dans la cellule ligne 2, colonne COL de l'onglet O2, le tableau de cellulles TC transposé
O2.Cells(2, COL).Resize(UBound(TC, 2), 1) = Application.Transpose(TC)
End Sub

• Copie le code ci-dessous
• Clique avec le bouton droit dans le premier onglet (en bas) et choisis l'option Visualiser le code
• Dans la grande partie en haut à droite, colle le code
• Enregistre

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim LI As Integer 'déclare la variable LI (LIgne)
Dim TC As Variant 'déclare la variable TC (Tableau de cellules)

If Target.Row <> 330 Then Exit Sub 'si le changement a lieu ailleurs que dans la ligne 330, sort de la procédure
LI = Target.Row 'définit la ligne LI
Set O = Sheets("CAUSES") 'définit l'onglet O
'efface les anciennes données de la colonne 2 (=B) de l'onglet O (à partir de la ligne 2)
O.Range(O.Cells(2, 2), O.Cells(Application.Rows.Count, 2).End(xlUp)).ClearContents
'définit la tableau de cellules TC contenant les données
TC = Range(Cells(LI, 7), Cells(LI, Application.Columns.Count).End(xlToLeft))
'renvoie dans la cellule B2 de l'onglet O, le tableau de cellulles TC transposé
O.Cells(2, 2).Resize(UBound(TC, 2), 1) = Application.Transpose(TC)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim LI As Integer 'déclare la variable LI (LIgne)
Dim TC As Variant 'déclare la variable TC (Tableau de cellules)

If Target.Row <> 330 Then Exit Sub 'si le changement a lieu ailleurs que dans la ligne 330, sort de la procédure
LI = Target.Row 'définit la ligne LI
Set O = Sheets("CAUSES") 'définit l'onglet O
'efface les anciennes données de la colonne 2 (=B) de l'onglet O (à partir de la ligne 2)
O.Range(O.Cells(2, 2), O.Cells(Application.Rows.Count, 2).End(xlUp)).ClearContents
'définit la tableau de cellules TC contenant les données
TC = Range(Cells(LI, 7), Cells(LI, Application.Columns.Count).End(xlToLeft))
'renvoie dans la cellule B2 de l'onglet O, le tableau de cellulles TC transposé
On Error Resume Next 'gestion des erreur (en cas d'erreur passe à la ligne suivante
'renvoie dans B2 de l'ontlet O le tableau TC transposé
O.Cells(2, 2).Resize(UBound(TC, 2), 1) = Application.Transpose(TC) 'génère une erreur si le tableau ne contient qu'une seule valeur
If Err <> 0 Then 'condition : si une erreur a été générée
    Err.Clear 'efface l'erreur
    O.Cells(2, 2).Value = Rows(LI).Find("*").Value 'copie l'unique valeur trouvée de la ligne dans la cellule B2 de l'onglet O
End If 'fin de l condition
End Sub