Sub Bouton5_QuandClic()
Dim Mess As String, Verif As Byte
Mess = ""
Verif = 0
For Each cel In Sheets("URSSAF").Range("G1:G500").Cells
If cel.Value = "Problème" Then
Mess = Mess & cel.Address & " ; "
Verif = Verif + 1
End If
Next
Mess = Replace(Mess, "$", "")
If Len(Mess) > 3 Then Mess = Left(Mess, Len(Mess) - 2)
Select Case Verif
Case 0
MsgBox "Pas de problème"
Case Else
MsgBox "Les cellules suivantes contiennent un problème" & vbCrLf & vbCrLf & Mess
End Select
End Sub