Parcourir les colonnes et comparer leur contenu

Bonjour . je voudrais parcourir les colonnes de deux feuilles différentes et comparer le contenu de leur entête. Pour la première, les valeurs changent , enfin augmentent à partir de la 3^e colonne . Pour la deuxième, ce n'est que la 3^e colonne qui est modifiée chaque mois.

voici un extrait de code que j'ai essayé mais enfin:

i = 1

Do Until Application.Worksheets("Feuil1").Cells(1, i).Value = Application.Worksheets("Conso").Cells(1, 4).Value

If Application.Worksheets("Feuil1").Cells(1, i).Value = Application.Worksheets("Conso").Cells(1, 3).Value Then

Call MsgBox(Mois, Application.Worksheets("Feuil1").Cells(1, i).Value)

End If

i = i + 1

Loop

slt patricia et

@++