Dim i As Integer, j As Integer, l As Integer
'Nous nous plaçons dans la feuille Récapitulatif des devis
With Sheets("Récapitulatif des devis")
'Nous purgeons les lignes existantes
i = 20
Do While .Cells(i, 2).Value <> ""
.Rows(i).ClearContents
i = i + 1
Loop
'Nous bouclons chaque onglet débutant par "Devis"
i = 20
For j = 1 To Sheets.Count
If Sheets(j).Name Like "Devis *" Then
.Cells(i, 2).Value = Sheets(j).Name
.Cells(i, 3).Value = Sheets(j).[e16].Value
'On récupère la dernière valeur en colonne J, qui correspond au montant TTC
.Cells(i, 4).Value = Sheets(j).Cells(Sheets(j).[j65000].End(xlUp).Row, "j").Value
i = i + 1
End If
Next j
End With