Sub Mise_en_forme()
Dim DerCol As Integer, Col As Integer
' Récupérer la dernière colonne remplie
DerCol = Cells(1, Columns.Count).End(xlToLeft).Column
' Pour chaque colonne
For Col = 2 To DerCol
' Tester si le libellé de la première ligne est : Tour1
If Cells(1, Col).Value = "Tour 1" Then
' Si oui, appliquée la MeF
With Range(Cells(1, Col), Cells(3, Col)).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
End If
Next Col
End Sub