For n = 3 To 156 'à priori on va de la ligne 3 à la ligne 156
Do While cells(n, 12) <> "" 'je ne vois pas le loop / Wend...?
'et tant que la cellule n,12 est nonvide, on fait la boucle for each c in myrange..
'sauf que dans cette boucle. jamais la cellule n,12 ne change.. donc.. si elle était non vide au début.. elle le sera toujours.. d'ou une boucle qui ne se termine jamais...
For Each c In myrange1
If cells(c.Row, myrange1.Column) > "" Then 'supérieure à vide?? connaissait pas. mais si ca fait ce que je pense, c'est cool, j'apprend un nouveau truc !! :-)
Lkd = cells(c.Row, myrange1.Column).Value
Else
cells(c.Row, myrange1.Column).Value = Lkd
End If
Next c
'manque ici le loop, ou wend, ou until.. ou .. revoir la boucle..
Next n