Sub Appel()
Call TirageTables
Sheets(1).Range("D1", "G1").Value = Array("Damien", "Marine", "Dany", "Céline")
MsgBox Cells(1, 9) & " : " & Cells(19, 9) & Chr(10) & Cells(1, 10) & " : " & Cells(19, 10) & Chr(10) & Cells(1, 11) & " : " & Cells(19, 11) & Chr(10) & Cells(1, 12) & " : " & Cells(19, 12) & Chr(10), vbInformation, "Résultats"
End Sub