Sauvegarder données d'une cellule

Bonjour à tous,

J'ai ce bout de macro sur un bouton :

If Cells(31, 2).Value = "X" And Cells(31, 3).Value <> Feuille7.Range("R" & Feuille7.Range("R" & Rows.Count).End(xlUp).Row).Value Then

Feuille7.Range("R" & Feuille7.Range("R" & Rows.Count).End(xlUp).Row + 1) = Cells(31, 4) & " " & Cells(31, 3).Value

Else

Feuille7.Range("R" & Feuille7.Range("R" & Rows.Count).End(xlUp).Row + 1) = Cells(1, 26).Value

End If

L'idée est de remplir plusieurs cellules avec des croix et lors de l'appuie sur le bouton de sauvegarder la valeur contenu dans la cellule adjacente dans un autre onglet (pour faire une sorte de mini BDD).

Ca fonctionne super mais pour des raisons professionnelles je dois parfois travailler sur la version 365 d'excel et sur les versions mobiles et les macros ne sont pas pris en charge ..

Je souhaiterai donc savoir si l'un de vous a une idée pour arriver au même résultat mais sans macro ...

Merci à ceux qui se pencherons sur mon problème.

Je joint un fichier allégé.