re le forum
dj.run j'iarais plutot avec une cellule cacher comme ceci
Sub copier()
If Range("O37") = "fin" Then Exit Sub
'recherche la cellule contenant la formule =dep
Cells.Find(What:="=dep", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
'si le nom de la cellule est "fin" alors
If ActiveCell.Address = "$N$37" Then
'copie la valeur de la cellule sur elle meme
ActiveCell.Offset(0, 0) = ActiveCell.Value
Range("O37") = "fin"
Range("O37").Font.ColorIndex = 2
'sinon
Else
'copie la formule de la cellule sur la 1ere cellule a droite
ActiveCell.Offset(0, 1) = ActiveCell.Formula
'copie la valeur de la cellule sur elle meme
ActiveCell.Offset(0, 0) = ActiveCell.Value
End If
End Sub
A suivre
Mytå