Je crois que j'ai trouver un truc qui marche pas mal!
Sub test()
Dim Gammename As String
Gammename=InputBox("Entrez qqch", "Information" )
Do While Gammename=""
If Continuer Then
Gammename=InputBox("Entrez qqch", "Information" )
Else: UserForm1.Show
Exit Sub
End If
Loop
End Sub
Function ContinuerProcedure() As Boolean
Dim Config As Integer
Dim Rep As Integer
Config = vbYesNo + vbQuestion + vbDefaultButton2
Rep = MsgBox("Voulez vous continuer?", Config)
If Rep = vbYes Then
ContinuerProcedure = True
Else: ContinuerProcedure = False
Workbooks("Informatisation du plan de maintenance.xls" ).Worksheets("Temp2" ).Delete
End If
End Function
---------------
Merci d'avance