Copie de cellule si ligne non vide

Bonjour tout le monde !

Actuellement j'ai un fichier avec un formulaire qui s'affiche pour la sélection d'un nom.

Ce nom va s'inscrire dans la cellule K à la première ligne vide.

Ensuite on va juste saisir dans la colonne D une activité via une liste déroulante.

Si nous avons 5 visite il y aura donc 5 lignes avec la colonne D renseignée.

Je souhaiterai que la cellule K se copie en dessous, jusqu'à la dernière ligne non vide du tableau avant la fermeture du fichier.

Pourriez vous me renseigner sur la macro à adopter?

Mon fichier est en pièce jointe

Merci d'avance,

manoss

j'ai essayé avec un code dans ce genre là mais ça ne marche pas ^^

Sub copie()

With Worksheets("Année 2017")

Application.ScreenUpdating = False

'boucle sur toutes les cellules de la colonne K

For Each cel In Worksheets("Année 2017").Range("K" & Worksheets("Année 2017").Rows.Count).End(xlUp).Row)

' If cel.Value = " " Then cel.Value = cel.Offset(-1, 0).Value

'Next cel 'prochaine cellule de la colonne K

Cordialement,

j'ai l'impression d'être Schizophrène a me répondre à moi même ^^

bref, j'ai solutionné mon problème avec une autre methode.

Si ca vous interesse =>

Dim isect As Range, c As Range

Set isect = Intersect(Target, [d:d])

If Not isect Is Nothing Then

For Each c In isect.Cells

If IsEmpty(c.Offset(0, 7)) Then

c.Offset(0, 7) = c.Offset(-1, 7).Value

End If

End Sub

Cordialement,