Bonjour,
Il doit y avoir bien mieux mais en vba , ceci semble fonctionner (à tester donc)
Attention le mot "Nom" a un espace derrière !! (ce dont le code tient compte)
P.
Option Explicit
Sub TablVertical()
Dim a, i, n, ad, vi, li, ligne
For i = 2 To [A65000].End(xlUp).Row
If Cells(i, "A") = "Nom " Then ' espace après le mot !!!
Set li = [G65000].End(xlUp) ' trouver la dernière ligne vide de la colonne des noms
Set n = Cells(i, "B")
n.Copy Destination:=li(2) ' copier le nom sous la dernière cellule occupée en colonne des noms
ligne = [G65000].End(xlUp).Row ' mémoriser dernière ligne occupée par un nom
If Cells(i + 1, "A") <> "Nom " Then
Cells(i + 1, "B").Copy Destination:=Cells(ligne, "H")
End If
If Cells(i + 2, "A") <> "Nom " Then
Cells(i + 2, "B").Copy Destination:=Cells(ligne, "I")
End If
If Cells(i + 3, "A") <> "Nom " Then
Cells(i + 3, "B").Copy Destination:=Cells(ligne, "J")
End If
End If
Next
End Sub