Création d'un bouton en boucle

Bonjour,

Je débute en VBA et je suis bloqué sur un petit problème :

J'aimerais faire un code pour dire " Tant que la case D1, D2, D3 ... n'est PAS vide, créer un bouton" .

Je veux placer ces boutons à côté des cases D qui ne sont pas vide.

Normalement ce code, je pense aurait du le faire mais j'ai du commettre une erreur car cela ne fonctionne pas.

Private Sub CommandButton3_Click()
Do While Range("D").Value <> " "
Sub Macro()
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=370.5, Top:=114.75, Width:=72, Height:= _
        24).Select
    Selection.ShapeRange.IncrementLeft -39#
    Selection.ShapeRange.IncrementTop -11.25
End Sub

End Sub

Merci de votre aide.

Bonjour

Une piste à vérifier ?