Re,
Ton code est très étrange pour moi. J'ai l'impression que tu as utilisé le manuel : Comment faire compliquer quand on peut faire simple (tome 4). Celui relatif aux rondes enfantines que tu as dû confondre avec les rondes de police...
Si tu renvoies, via le bouton Valider, dans la colonne Type, la [Caption] du bouton d'option choisi avec :
Cells(dlign, 4) = typeronde
tu dois supprimer les lignes :
.Cells(vLign, 4) = OptionButton1
.Cells(vLign, 4) = OptionButton2
de la fonction Transfert. Sinon ça renvoie par dessus non pas la [Caption] mais la [Value] de l'OptionButton2...