Bonsoir à tous,
sur un forum concurent on m'a donné ce code, qui résoud mon problème.
Encore merci à Roland_M de m'avoir aider et m'indiquer pourquoi l'erreur d'execution 13 .
Cordialement.
Private Sub UserForm_Initialize()
Dim NumVGP, vAnConf As Integer, Inc As Integer
With...