Merci Michel, pour ton aide.
J'ai utilisé ton aide de la manière suivante dans le même fichier que j'ai join precedemment:
Sub Bouton2_QuandClic()
Dim Plage As Range
Set Plage = Range(Range('i5'), Range('i65536').End(xlUp))
Range('I2').Select
Selection.Copy
Plage.Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub
Mais cela me donne le même problème qu'avec la solution de Myta.
Le problème est que toute la plage désirée de la colonne I, a partir de la cellule I5 n'est pas selectionnée.
Regarde dans mon fichier joint j'y ai détaillé le problème.
Y a t il une solution?
Merci de votre aide
Cordialement
Zeltron