Application.Visible = False UserForm1.Show
Dim monFichier As Workbook Set monFichier = Workbooks.Open ...tu pourras ainsi faire référence à ces données d'une manière plus simple.
Dim mesDatas As WorkSheet Set mesDatas = monFichier.Sheet("la feuille") ...De cette manière, tu peux, en tête de procédure, utiliser la syntaxe :
With mesDatas .Range("A1").Select ... End WithEn gros, tu n'auras qu'à ajouter un point devant tes instructions actuelles.
' Remplace Range("A1").Select Selection.Value = "Codes Sources" ' par Range("A1").Value = "Codes Sources"
fileToOpen = Application _ .GetOpenFilename() 'navigateur d'ouverture de fichier If (fileToOpen = False) Then Exit Sub 'évite un bug si on annule la recherche Workbooks.Open fileToOpen 'ouvre le fichier sélectionné With fileToOpen