Sub RemiseCheques()
Dim MaPlage, c As Range, NbC As Integer, txt As String
Set MaPlage = Sheets("COMPTA").Range("K1:K2000,O1:O2000,S1:S2000")
For Each c In MaPlage
If Val(c) >= 1 And Val(c) <= 15 Then
NbC = NbC + 1
txt = txt & vbLf & c.Offset(, 4 - c.Column)
End If
Next c
If NbC Then
MsgBox NbC & " CHEQUES SONT A MOINS DE 15 JOURS DE LA DATE LIMITE :" & txt
Else
UserForm0.Show
End If
End Sub