Sub Macro1()
Dim dest1 As Range 'déclare la variable dest1 (DESTination 1)
Dim dest2 As Range 'déclare la variable dest2 (DESTination 2)
Dim dest3 As Range 'déclare la variable dest3 (DESTination 3)
Dim dest4 As Range 'déclare la variable dest4 (DESTination 4)
Dim dest5 As Range 'déclare la variable dest5 (DESTination 5)
Dim c As String 'déclare la variable c (Country)
For x = 6 To Sheets.Count 'boucle sur tous les onglets des pays
c = Mid(Sheets(x).Range("B2"), 10) 'extait le nom du pays de la cellule B2
Set dest1 = Sheets("Poverty_HCR1$%P").Range("A65536").End(xlUp).Offset(1, 0) 'définit la destination 1
Set dest2 = Sheets("Poverty_HCR1$%PPP").Range("A65536").End(xlUp).Offset(1, 0) 'définit la destination 2
Set dest3 = Sheets("School_ENR_PT%NET").Range("A65536").End(xlUp).Offset(1, 0) 'définit la destination 3
Set dest4 = Sheets("Ratio_F_M_PENR").Range("A65536").End(xlUp).Offset(1, 0) 'définit la destination 4
Set dest5 = Sheets("Ratio_F_M_SENR").Range("A65536").End(xlUp).Offset(1, 0) 'définit la destination 5
dest1.Value = c 'place le nom du pays
dest2.Value = c 'place le nom du pays
dest3.Value = c 'place le nom du pays
dest4.Value = c 'place le nom du pays
dest5.Value = c 'place le nom du pays
Sheets(x).Range("C5:G5").Copy dest1.Offset(0, 1) 'place les données du pays
Sheets(x).Range("C6:G6").Copy dest2.Offset(0, 1) 'place les données du pays
Sheets(x).Range("C7:G7").Copy dest3.Offset(0, 1) 'place les données du pays
Sheets(x).Range("C8:G8").Copy dest4.Offset(0, 1) 'place les données du pays
Sheets(x).Range("C9:G9").Copy dest5.Offset(0, 1) 'place les données du pays
Next x 'prochain onglet de la boucle
End Sub