Arf, j'ai pas l'impression que ca fonctionne pas tant que ca :
voici mon code
********************
Sub macro2()
Dim v As Integer
Dim machaine As String
v = 1
While IsEmpty(Sheets("ASSOU").Range("B" & v)) = False
If IsEmpty(Sheets("ASSOU").Range("E" & v)) = True Then
Range("D" & v).Select
ActiveCell.FormulaR1C1 = "=MID(RC[-2],7,LEN(RC[-2])-6)"
End If
v = v + 1
Wend
End Sub
********************
Cependant, sur certaines cellules cela fonctionne, sur d'autres j'ai droit à ca comme résultat :
=MID(RC[-2],7,LEN(RC[-2])-6)
Y at-il qq chose à modifier ?
merci