Salut
 
 
 
Le but de se code est de selectionner des cellules à l'aide de Worksheets().Select puis Range(cell_variable).Select;
le pb est le suivant : run time error 9, la methode range select a echoué.
 
Je vous passe mon code afin que vous puissiez déceler une anomalie!!
merci
 
DEPOT_PEP_CELL = "C" + ligneEnCours
BAC_CELL = "E" + ligneEnCours
ligneCopie_PEP = CStr(ligneEnCours + 1)
CELL_COPY = "A" + ligneCopie_PEP
Nom_feuille = ActiveSheet.Name
           
iret = fonction_copie_PEP(Nom_feuille, DEPOT_PEP_CELL, BAC_CELL, "PEP_ATL", CELL_COPY)
 
Function fonction_copie_PEP(type_planning As String, depot_a_copier As String _
, bac_a_copier As String, type_pep As String, case_collage As String)
     
    Sheets(type_planning).Select
    Range(depot_a_copier, bac_a_copier).Select
    Range(bac_a_copier).Activate
    Selection.Copy
    Worksheets(type_pep).Select
    Range(case_collage).Select 'le pb est ici....
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Function

peut etre que ceci resoudra ton souci
 
...Worksheets(type_pep).select
range(case_collage).select
Activesheet.paste
 
End function