Bonsoir
pour que l'adresse puisse fonctionner dans tous les PC alors il faut que le fichier à ouvrir soit dans
le même répertoire que le fichier qui contiend la macro.
Sub Ouvre()
Dim wb As Workbook
Dim ws As Worksheet
Dim chemin as string
chemin =thisworkbook.path & "\"
Set wb = Workbooks.Open(chemin & "Classeur1" )
Set ws = wb.Worksheets("Répartition" )
End Sub