Sub copier()
Dim myval As String, origine As String
origine = ActiveCell.Address
myval = ActiveCell.Value
Worksheets("Feuil2").Range(origine).Value = myval
End Sub
Salut,
Si jamais une réponse est déjà parvenu pour le remerciement,tant pis.
Je n'ai qu'une chose à dire :"BRAVO ET MERCI"
Parce que je viens d'économiser une soirée et je vais pouvoir continuer à me casser la tête pour la suite.
Encore une fois merci EGO et si jamais je eux rendre la pareille quoiqu'à mon avis tu es très fort beaucoup plus que moi ;-)
Bonne soirée et merci
@+