Sub traitementRepetionUserform1()
Dim test As Integer
Dim i As Integer
i = 0
Do
i = i + 1
If i > 1 Then Exit Do 'j'ai du rajouter cette ligne, mais cela ne me convient pasn sinon la procédure ne fonctionne pas correctemente
test = MsgBox("Souhaitez-vous refaire une autre planification ? ", vbYesNo + vbQuestion, "REFAIRE UNE PLANIFICATION")
If test = vbYes Then
Unload UserForm1
UserForm1.Show
End If
If test = 7 Then
Unload UserForm1
Exit Do
End If
Loop
End Sub