Sub CreationDeLaListe()
Sheets("Feuil1").Cells.Clear 'on commence par effacer la feuille 1
With Sheets("Feuil1")
Range("ma_liste1").Copy Destination:=.Range("A" & .Rows.Count).End(xlUp).Offset(1, 0)
dlig = Sheets("Onduleurs").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Onduleurs").Range("A1:L" & dlig).SpecialCells(xlCellTypeVisible).Copy Destination:=.Range("A" & .Rows.Count).End(xlUp).Offset(1, 0)
ligf1 = Sheets("Onduleurs").Range("B" & Rows.Count).End(xlUp).Row - 1
Sheets("Onduleurs").Range("B" & ligf1).Resize(2).Copy Destination:=.Range("A" & .Rows.Count).End(xlUp).Offset(1, 0)
Range("ma_liste3").Copy Destination:=.Range("A" & .Rows.Count).End(xlUp).Offset(2, 0)
Range("ma_liste4").Copy Destination:=.Range("A" & .Rows.Count).End(xlUp).Offset(2, 0)
Range("ma_liste5").Copy Destination:=.Range("A" & .Rows.Count).End(xlUp).Offset(2, 0)
dlig = Sheets("Tensions chaînes").Range("B" & Rows.Count).End(xlUp).Row
Sheets("Tensions chaînes").Range("A1:L" & dlig).SpecialCells(xlCellTypeVisible).Copy Destination:=.Range("A" & .Rows.Count).End(xlUp).Offset(2, 0)
Range("liste2").Copy Destination:=.Range("A" & .Rows.Count).End(xlUp).Offset(2, 0)
Range("liste3").Copy Destination:=.Range("A" & .Rows.Count).End(xlUp).Offset(2, 0)
Range("liste4").Copy Destination:=.Range("A" & .Rows.Count).End(xlUp).Offset(2, 0)
Range("liste5").Copy Destination:=.Range("A" & .Rows.Count).End(xlUp).Offset(2, 0)
.Cells.EntireColumn.AutoFit 'autofit de toutes les colonnes
.Columns(1).ColumnWidth = 20 'on force une taille 20 pour la colonne A
End With
End Sub