Salut Christophe,
Salut l'équipe,
pour l'exemple donné très précisément. Pas pour une autre configuration!
Private Sub CommandButton1_Click()
'
If [C6] <> "" Then _
Cells(6, IIf([H6] = "", [F6], [G6]).End(xlToRight).Column + 1) = [C6]: _
[C6] = ""
'
End Sub
A+