Macro

Bonjour je suis bénévole dans un club de judo et je gère la compétition annuelle avec 450 combattants. Mon ex mari avait conçu une macro qui comptabilise les points, fait le lien avec la classement par club et par catégorie.
J' ai un message qui erreur 13 qui s'affiche Erreur d'exécution BASIC.
'13'
Type de données incohérent.

sur la ligne If CLUB1 = CLUB2 Then



Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub maj_classt()
'
' maj_classt Macro
' Macro enregistrée le 04/03/2005 par maisonsc
'

'
nb_club = 2
col_club = 2
For col_club = 2 To 77 Step 5
Sheets("CLUBS").Select
Cells(1, col_club).Select
CLUB = Selection
Cells(27, col_club).Select
TOTAL_CLUB = Selection
Sheets("CLASSEMENT").Select
Cells(nb_club, 1).Select
ActiveCell.FormulaR1C1 = CLUB
Cells(nb_club, 2).Select
ActiveCell.FormulaR1C1 = TOTAL_CLUB
nb_club = nb_club + 1
Next col_club
Sheets("CLASSEMENT").Select
Range("A1").Select
Range("A1:B16").Sort Key1:=Range("B2"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A15").Select
PLACE = 1
For ligne = 2 To 16
Sheets("CLASSEMENT").Select
Cells(ligne, 1).Select
CLUB1 = Selection
Sheets("CLUBS").Select
For col_club = 2 To 77 Step 5
Cells(1, col_club).Select
CLUB2 = Selection
If CLUB1 = CLUB2 Then
Cells(28, col_club).Select
ActiveCell.FormulaR1C1 = PLACE
col_club = 77
End If
Next col_club
PLACE = PLACE + 1
Next ligne
Sheets("CLASSEMENT").Select
Range("A17").Select
End Sub

Quelqu'un peut il venir à mon secours... merci.