Sub global_prod()
Dim dlig As Integer
Dim mesfeuilles
Dim n As Integer
Dim mafeuille As Worksheet
Dim feuillDest as worksheet
mesfeuilles = Array("ATTENTE PRISE EN MAIN", "ATTENTE CONVOCATION", "EN COURS", "ATTENTE PIECES", "ATTENTE MO", "CONTROLE FINAL", "PRESTATION EXTERNE")
Set feuillDest=sheets("GLOBAL PROD")
dlig =feuillDest .Cells(Rows.Count, "B").End(xlUp).Row
For n = LBound(mesfeuilles) To UBound(mesfeuilles)
Set mafeuille = Sheets(mesfeuilles(n))
With mafeuille
.range("A2:R2").copy destination =feuilleDest.range("A" &dlig)
end with
dlig =feuillDest .Cells(Rows.Count, "B").End(xlUp).Row
next n
End Sub