salut, forum et a tous
voici un code qui ne demande qua etre modifier colle le sur un bouton change les valeur et sa devrai etre OK
Private Sub CommandButton1_Click()
Dim Cell As Range
Application.ScreenUpdating = False
'Ici c'est bien la palge de cellule que tu souhaites copier
Range('BQ5
Q80').Select
Selection.Copy
'et la la destination de la copie
Range('E5').Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'et ici effacement des cellules ne contenat pas de formules
'pour la plage indiquée à saoir G5:BP80
'ci dessous Code de BricoFire
For Each Cell In Range('$G$5:$BP$80') 'tu mets la plage que tu veux
If Cell.HasFormula = False Then
Cell.ClearContents
End If
Next
End Sub