Sub TVA()
Dim TVA As Long
derligne = Sheets("Clients").Range("A" & Rows.Count).End(xlUp).Row
TVA = Sheets("Clients").Cells(derligne, 4).Value
End Sub
=DECALER(D4;EQUIV("Total général";A:A;)-4;)
merci mais cela ne fonctionne pas