Dim fin_Col as integer
fin_Col = ActiveSheet.Range("IV4").end(xltoleft).column
Dim pcs_col as integer
'parcours des colonnes
for pcs_col = 1 to fin_col
'si le texte "Total" est trouvé dans la cellule
if InStr(0,Activesheet.cells(4,pcs_col).value, "Total") > 0 then
Dim col as string
'Si l'index de la colonne est inférieur ou égal à 26
if pcs_col <= 26 then
'On ne récupère qu'une seule lettre
col = right(left(Activesheet.cells(4,pcs_col).address,2),1)
else
'Sinon, on en récupère 2
col = right(left(Activesheet.cells(4,pcs_col).address,3),2)
end if
'On masque la colonne
Columns(col).EntireColumn.Hidden = True
end if
next pcs_col