Private Sub Worksheet_Activate()
Dim tablo, i As Long, j As Variant
On Error Resume Next 'si une feuille n'existe pas
tablo = Range("A3:G" & Range("A" & Rows.Count).End(xlUp).Row)
For i = 1 To UBound(tablo)
With Sheets(CStr(tablo(i, 1)))
j = Application.Match("*Total HT*", .Columns(1), 0)
tablo(i, 6) = "": tablo(i, 7) = "" 'RAZ
tablo(i, 6) = .Cells(j + 2, 10) 'TTC
tablo(i, 7) = .Cells(j, 10) 'HT
End With
Next
Application.EnableEvents = False
[F3].Resize(UBound(tablo)) = Application.Index(tablo, , 6)
[G3].Resize(UBound(tablo)) = Application.Index(tablo, , 7)
Application.EnableEvents = True
End Sub