Probleme sous excel

'...
'balayer la ligne 6 et rechercher le mois en cours
Do
mois_conge = Month(ActiveCell.Value)
If mois_orig = mois_conge Then
    col = i  'le mois est trouvé on mémorise la colonne
    Exit Do
End If
i = i + 3 '<---------------------Modifier ici
Cells(6, i).Select
Loop While ActiveCell.Value <> "" 'boucler jusqu'à la fin de la ligne 6
'...

'calculer le nombre de jours ouvrés entre deux dates
Function NBJO(Date_début As Date, Date_fin As Date) As Integer
Dim Cpt As Date
Application.Volatile
If Date_fin = 0 Or Date_début = 0 Or Date_fin < Date_début Then
    NBJO = 0
    Exit Function
End If
For Cpt = Date_début To Date_fin
If Weekday(Cpt, vbMonday) <> 7 Then
NBJO = NBJO + 1
End If
Next
End Function


'calculer le nombre de jours fériés entre deux dates (sauf dimanche)
Function NBJF(Date_début As Date, Date_fin As Date) As Integer
Dim Cpt As Date, JF As Range, cel As Range
Application.Volatile
If Date_fin = 0 Or Date_début = 0 Or Date_fin < Date_début Then
    NBJF = 0
    Exit Function
End If
Set JF = Range("JoursFériés!B2:B20")
For Cpt = Date_début To Date_fin
For Each cel In JF
If Weekday(Cpt, vbMonday) <> 7 Then
   If Cpt = cel.Value Then NBJF = NBJF + 1
End If
Next
Next
End Function

Colonne "A"-----Colonne "B"
Année	         2008
Jour de l'an	  01/01/2008
Lundi Pâques      24/03/2008
Fête Travail       01/05/2008
Fête Victoire     08/05/2008
Fête Nationale  14/07/2008
Ascension        15/08/2008
Toussaint         01/11/2008
Armistice         11/11/2008
Noel               25/12/2008

+---------------------------------+---------------------------------+
:          juillet 2008           :            Aout 2008            :
+----------+----------+-----------+----------+----------+-----------+
:   Debut  :   Fin    : Nbr Jours :   Debut  :   Fin    : Nbr Jours :
+----------+----------+-----------+----------+----------+-----------+

'....
'Recherche colonne du mois en cours dans feuille congés
'Se positionner sur la feuille congés en B6
Sheets(f_conge).Select
Range("C6").Select
i = 3: col = 0' initialiser i à 3 (colonne C)
'....
'....
'Rechercher nom de l'agent
        If nom_agent <> "" Then ' ne pas rechercher une case vide
            On Error Resume Next
            Selection.Find(What:=nom_agent, After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False).Activate
            On Error GoTo 0
        End If