salut a tous,
finalement j'ai fait un mixte de vos reponses et cela donne :
Sheets('fourn').Select
' calcul equivalence
Sheets('Feuil1').Select
Range('F8').Copy
Sheets('fourn').Select
Range('G8').Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range('H8').Select
Sheets('Feuil1').Select
Range('G8').Select
Sheets('fourn').Select
ActiveCell.FormulaR1C1 = '=RIGHT(RC[-1],10)'
Range('I8').Select
ActiveCell.FormulaR1C1 = '=LEFT(RC[-1],7)'
Range('I8').Select
Sheets('Feuil1').Select
Range('F29').Select
Sheets('fourn').Select
Selection.Copy
Range('F29').Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'Remplacer un point par une virgle
ActiveCell.Replace What:='.', Replacement:=',', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Cells.Find(What:='.', After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True). _
Activate
Range('E29').Select
ActiveCell.FormulaR1C1 = '=IF(RC[-3]='''','''',RC[-3]*RC[1])'
Range('A1').Select
voilà merci a tous de votre aide, grace a vous mon projet est desormais terminé.
A bientot