Sub ajouter()
Dim lig&
With [Inscrits] 'tableau structuré
lig = .Rows.Count + IIf(.Cells(.Rows.Count, 1) = "", 0, 1)
.Cells(lig, 1) = .Parent.[G5]
.Cells(lig, 2) = .Parent.[G9]
.Cells(lig, 4) = .Parent.[I5]
.Cells(lig, 5) = .Parent.[I9]
.Cells(lig, 6) = .Parent.[K9]
If .Parent.[K5] Like "*@*" Then _
.Parent.Hyperlinks.Add .Cells(lig, 7), "mailto:" & .Parent.[K5], TextToDisplay:=.Parent.[K5].Text _
Else .Cells(lig, 7) = ""
.Parent.[G5,G9,I5,I9,K5,K9] = ""
End With
End Sub