'NumeroFeuille et MaFeuilleAAcceder sont des entiers Dim Frm As New Form1 Load Frm Frm.Show Frm.Tag = NumeroFeuille 'pour acceder a la feuille recherchée : For Each Frm In Forms If Frm.Tag = MaFeuilleAAcceder Then 'Je Fais le traitement ExitFor End If Next