Salut Bloom, Thibo et forum
Une petite macro trouvée de les méandres de mon PC
Sub CopyPasteSpecial()
Dim CelluleDest As Range
Dim PlageSource As Range
'Permet de sélectionner une plage avec la souris (Méthode InputBox)
Set PlageSource = Application.InputBox _
("Sélectionnez la ou les cellule(s) à copier !", "Plage source", Type:=8)
Set CelluleDest = Application.InputBox _
("Sélectionnez la cellule de destination !", "Cellule destination", Type:=8)
If CelluleDest.Count > 1 Then
MsgBox "Vous ne devez saisir qu'une cellule," _
+ vbCrLf + "de destination !" _
+ vbCrLf + vbCrLf + "La copie va être annulée."
Exit Sub
End If
'On va ouvre la boite de dialogue
'collage spécial pour faire la copie.
PlageSource.Copy
With CelluleDest
Sheets(.Parent.Name).Select
Range(.Address).Select
.Application.Dialogs(xlDialogPasteSpecial).Show
End With
Application.CutCopyMode = False
End Sub
A suivre car les détails sont très vagues.....
Mytå