Sub Prix_TTC()
Range("A1").Select 'Je commence en A1
Do Until ActiveCell.Value = "Prix TTC" 'Je recherche la case Prix TTC
ActiveCell.Offset(0, 1).Select 'je passe ˆ la cellule dÕaprs si je nÕai pas trouvŽ Prix TT
Loop 'Je refais lÕopŽration jusquÕˆ trouver Prix TTC
nblignes = ActiveCell.CurrentRegion.Rows.Count - 1 'Je vais ˆ la cellule dÕen dessous de lÕen-tte1
ActiveCell.Offset(1, 0).Select
For i = 1 To nblignes
ActiveCell.Value = ActiveCell.Offset(0, -2).Value + ActiveCell.Offset(0, -1).Value 'Prix TTC + TVA
ActiveCell.Offset(1, 0).Select 'Je...