bonjour Chris
corrigé une faute,ligne en trop
dans le code de la feuille1,si tu enlèves ' tu peux aller sur la feuille(userform showmodal=false)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range('B20:IV1000')) Is Nothing Then
UserForm1.Show ' 0
End If
End Sub
à bientôt [file name=copieessaiccpV1.zip size=30620]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/copieessaiccpV1.zip[/file]