Sub Feries()
Application.ScreenUpdating = False
Dim x As Integer, i As Integer, Rep As Date, r As Long
For x = 1 To 12
With Sheets(x)
For i = 3 To 33
Rep = .Cells(2, i)
On Error Resume Next
r = Application.Match(CLng(Rep), Sheets("Anniversaires").Range("H1:H15"), 0)
If Err = 0 Then
.Cells(3, i) = Sheets("Anniversaires").Range("H" & r).Offset(0, 1)
With .Range(.Cells(3, i), .Cells(41, i))
.Font.Size = 14
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = 90
.MergeCells = True
.Interior.Color = RGB(192, 192, 192)
.Font.ColorIndex = 3
End With
End If
Next i
End With
Next x
End Sub