Hello, c'est encore moi !  
J'ai un problème au sujet d'une erreur qui intervient uniquement quand mon fichier est grand. object required.
 
Voila la boucle, je dois trouver, pour chaque cell de la feuille Actual Add, l'onglet du fichier de ref correspondant. Et ca donne :
   je vous passe les détails...
 
' L'erreur est en rouge ^____^
'********************************************************************'***************
'                           Zip Code Main Cure
 
' Geomaps Main File Opening
' Unmatching Item Workbook / Worksheet initialization
' Corresponding Geomaps Thumbnail Finding (City Level)
 
'                         Calling Find_ZipCode
 
' ***********************************************************************************
 
 
Public Sub Zio_Analyse()
 
Dim Tmpsh As Worksheet                  ' Temporary sheet
Dim cel As Range                        ' Cell loop index
 
Dim path As String                      ' Path of Geomap File
Dim nGeo As String                      ' Name of Geomap File
 
 
' The (m)Total Count with Actual Add / Actual Del sheets
Set CWbk = ActiveWorkbook
Set Upset = Application.Workbooks.add
Upset.Sheets(1).name = "Unlisted country"
Upset.Sheets(2).name = "No city match"
Upset.Sheets(3).name = "No IBM Service Level match"
 
' Upset.SaveAs ("Unknown and exceptions from " & CWbk.name)
 
' Opening Geomap file
path = InputBox("Path of the Geomap file : " )
nGeo = InputBox("Name of the Geomap file : " )
 
 
Set GWbk = Application.Workbooks.Open("" & path & "\" & nGeo)
 
' Checking the country regarded
' Test
 
If IsError(CWbk.Sheets("Actual Add of Cisco" )) Then
    MsgBox "No Actual Add sheet"
    Exit Sub
End If
 
' Emmanuelle's code integration
 
Call CisToIFile_rmx(CWbk)
 
' For each cell of Actual Add sheet Country column
 
For Each cel In Range(CWbk.Sheets("Actual Add of Cisco" ).Range("K2" ), CWbk.Sheets("Actual Add of Cisco" ).Range("K2" ).Cells.SpecialCells(xlCellTypeLastCell).Offset(1, 0))
         
        For Each Tmpsh In GWbk.Sheets
         
          ' If the country is listed in Geomap_TOTAL_MATCH
            If Not cel Is Nothing Then
                 
            If Tmpsh.name = cel.value Then                
                    cel.EntireRow.Interior.Color = vbCyan
                    Call Find_ZipCode(Tmpsh, cel)
                 
                Else
                     
                    cel.Interior.Color = vbRed
                     
                End If
             
            End If
         
        Next Tmpsh
 
Next cel
 
 
' General cleaning
 
Set Tmpsh = Nothing
Set cel = Nothing
 
End Sub
     

c'est bon j'ai trouvé toute seule ^^