Sub test()
Dim Ch As Long, Ch2 As Long, rslt As Long
Dim txt As String, txt2 As String
Ch = WorksheetFunction.CountA(Sheets("Feuil1").Range("B:B"))
MsgBox Ch, vbInformation, "Valeur: Ch"
Ch2 = WorksheetFunction.CountA(Sheets("Feuil1").Range("C:C"))
MsgBox Ch2, vbInformation, "Valeur: Ch2"
txt = Right(Ch, 3)
MsgBox txt, vbInformation, "Valeur: txt"
txt2 = Left(Ch2, 3)
MsgBox txt2, vbInformation, "Valeur: txt2"
MsgBox txt & txt2, vbInformation, "Valeur: txt & txt2"
End Sub