Bonjour,

Je pense que le sujet à déjà été abordé, mais je suis bloqué vu mon faible niveau VBA.
Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
  Private Sub CommandButton1_Click()
 
  Sheets("Source").Select
  Range("DPGF_SOURCE").Select
  Selection.ClearContents
 
  Sheets("DPGF Terrassements généraux").Select
  Range("DPGF_TERR").Select
  Selection.Copy
  Sheets("Source").Select
  ActiveSheet.Paste
 
  End Sub
Le problème est que cela m'affiche quand je le lance le message " la méthode 'range'de l'objet'_worksheet' a échoué.

Si il y a des âmes charitables pour m'aider, merci !