Sub Recap1()
Dim ligne as Long
Application.Dialogs(xlDialogPrint).Show
ligne = Sheets("Bilan").Range("A65000").End(xlUp).Row + 1 ' ligne libre
Sheets("Bilan").Cells(ligne, 1) = Sheets("NOMDELAFEUILLE").Cells(20, 1)
Sheets("Bilan").Cells(ligne, 2) = Sheets("NOMDELAFEUILLE").Cells(11, 1)
Sheets("Bilan").Cells(ligne, 3) = Sheets("NOMDELAFEUILLE").Cells(20, 4)
Sheets("Bilan").Cells(ligne, 4) = Sheets("NOMDELAFEUILLE").Cells(20, 5)
End Sub