Sub Bouton1_QuandClic()
Dim c As Range
Dim cptrappeler As Byte
Dim cptrefus As Byte
Dim cptopport As Byte
Dim cpthorscible As Byte
Dim cptechec As Byte
Dim cptljrj As Byte
For Each c In Range('b1:b' & Range('b65536').End(xlUp).Row)
If c.Interior.ColorIndex = 6 Then
Select Case c
Case 'A RAPPELER': cptrappeler = cptrappeler + 1
Case 'REFUS': cptrefus = cptrefus + 1
Case 'OPPORTUNITE COMMERCIALE': cptopport = cptopport + 1
Case 'HORS CIBLE': cpthorscible = cpthorscible + 1
Case 'ECHEC CONTACT': cptechec = cptechec + 1
Case 'LJ/RJ': cptljrj = cptljrj + 1
End Select
End If
Next c
MsgBox 'il y à :' & vbNewLine & vbNewLine & _
cptrappeler & ' a rappeler' & vbNewLine & _
cptrefus & ' refus' & vbNewLine & _
cptopport & ' opportunité' & vbNewLine & _
cpthorscible & ' hors cible' & vbNewLine & _
cptechec & ' echec' & vbNewLine & _
cptljrj & ' ljrj' & vbNewLine, , 'OUF...'
End Sub