Dim c As Range, sh As Worksheet
For Each sh In Sheets
Set c = sh.Cells.Find("TOTAL Général")
If Not c Is Nothing Then
c.Resize(1, 2).Merge
c.Offset(1, 0).Resize(1, 2).Merge
c.Resize(2, 2).HorizontalAlignment = xlCenter
c.Resize(2, 4).Font.Bold = True
End If
Next