Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Byte, j As Byte, Cel As Range
For i = 1 To 5 Step 5 'boucle sur les lignes 1 à 5 du tableau
For j = 1 To 20 'multiplie par 20
For Each Cel In Range("B38:S42")
Cel(i + (44 * j), 1).Interior.ColorIndex = Cel.Interior.ColorIndex
Next Cel
Next j
Next i
End Sub