Sub Exporter()
Dim F1 As Worksheet, F2 As Worksheet, titres, i As Long, lig As Long, col As Byte
Set F1 = Sheets("A") 'nom à adapter
Set F2 = Sheets("B") 'nom à adapter
titres = Array("NOM", "PRENOM", "ADRESSE", "Téléphone", "Mail", "Infos diverses")
F2.Rows("2:" & F2.Rows.Count).Delete 'RAZ
For i = 2 To F1.Cells(F1.Rows.Count, "A").End(xlUp).Row
lig = 2 + 8 * (Int(i / 2) - 1) '2 => 1ère ligne renseignée
col = 2 + 3 * (i Mod 2) '2 => 1ère colonne renseignée
F2.Cells(lig, col).Resize(6) = Application.Transpose(titres)
F2.Cells(lig, col + 1).Resize(6) = Application.Transpose(F1.Rows(i).Resize(, 6))
F1.Cells(i, 5).Copy F2.Cells(lig + 4, col + 1) 'pour copier le lien hypertexte
Next
F2.Activate 'facultatif
End Sub