Sub Bouton1_QuandClic()
Dim ws As Worksheet
Dim colonne As Byte
Dim ligne As Byte
Dim j As Byte
For Each ws In Worksheets
With ws
For ligne = 6 To 102 Step 16
If ligne = 102 Then ligne = 99
For colonne = 2 To 7
If .Range('b1') = .Cells(ligne, colonne) Then
For j = ligne To ligne + 13
If .Cells(j, colonne) <> '' Then
.Cells(j, colonne).Interior.ColorIndex = 26
End If
Next j
End If
Next colonne
Next ligne
End With
Next ws
End Sub