Test

</p>
<!-- /wp:paragraph -->

<!-- wp:paragraph -->
<p>Option Explicit<br />Sub extrait_formule()<br />Dim lrow As Long, lCol As Long<br />Dim wks As Worksheet<br />Set wks = Worksheets("Etude tambours")<br />Dim lRowDepart As Long<br />Dim lRowFin As Long<br />lRowFin = 10<br />Dim lColFin As Long<br />lColFin = wks.UsedRange.Columns.Count<br />Dim arr() As Variant<br />ReDim arr(1 To lColFin, 1 To lRowFin)<br />Dim arrTitre As Variant<br />ReDim arrTitre(1 To 1, 1 To lRowFin)<br />arrTitre(1, 1) = "Colonne"<br />arrTitre(1, 2) = "Titre"<br />arrTitre(1, 3) = "Valeur"<br />arrTitre(1, 4) = "Formule"<br />For lCol = 1 To wks.UsedRange.Columns.Count<br />arr(lCol, 1) = wks.Cells(6, lCol).Value<br />arr(lCol, 2) = wks.Cells(6, lCol).Value &amp; " " &amp; _<br />wks.Cells(7, lCol).Value &amp; " " &amp; _<br />wks.Cells(8, lCol).Value &amp; " " &amp; _<br />wks.Cells(9, lCol).Value<br />arr(lCol, 3) = wks.Cells(2, lCol).Value<br />arr(lCol, 4) = wks.Cells(2, lCol).FormulaR1C1<br />Next<br />Range(Cells(1, 1), Cells(UBound(arrTitre, 1), UBound(arrTitre, 2))).Value = arrTitre<br />Range(Cells(1 + 1, 1), Cells(UBound(arr, 1) + 1, UBound(arr, 2) + 1)).Value = arr<br />End Sub</p>
<!-- /wp:paragraph -->

<!-- wp:paragraph -->
<p>