Bonjour,
Une proposition.
Cdlt.
Public Sub Compte2()
Dim ws As Worksheet
Dim lCol As Long, lCol2 As Long, LRow As Long, LRow2 As Long, I As Long
Const v As Byte = 4
Dim Msg As String
Set ws = ActiveSheet
lCol = 6: LRow = 5: LRow2 = 24
With ws
lCol2 = .Cells(LRow, .Columns.Count).End(xlToLeft).Column
For I = lCol To lCol2
If .Cells(LRow2, I) > v Then
Msg = Msg & .Cells(LRow, I).Value & " : " & .Cells(LRow2, I).Value & vbLf
End If
Next I
End With
MsgBox Msg, vbOKOnly + vbInformation, "Congés > 4 jours"
End Sub