Sub Macro1()
Dim cc As Byte 'déclare la variable cc (Colonne Concours)
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
For cc = 5 To 77 Step 6 'boucle 1 : sur les colonnes 5 à 77 par pas de 6
dl = .Cells(Application.Rows.Count, cc).End(xlUp).Row 'définit la dernière ligne éditiée dl de la colonne cc
Set pl = .Range(.Cells(3, cc), .Cells(dl, cc)) 'définit la plage pl
For Each cel In pl 'boucle 2 : sur toutes les cellules cel de la plage pl
'si la valeur de la cellule est égale à "PB", efface le contenu de la plage correspondante
If cel.Value = "PB" Then
cel.Offset(0, -3).Resize(1, 3).Interior.ColorIndex = 3
cel.Offset(0, -3).Resize(1, 3).ClearContents
End If
Next cel 'prochaine cellule de la boucle 2
Next cc 'prochaine colonne de la boucle 1
End With 'fin de la prise en compte de l'onglet "Feuil1"
End Sub