Microsoft 365 [Résolu] Vba Excel Mise à jour Colonne

[xvella]

Bonjour à tous,
Bonjour forum,

Petit souci. (sa sent la fatigue)

Dans une colonne je souhait vider la première cellule puis réécrire le reste dans le même ordre.

Pour info:
Sub Méthode_Bourrin()
'
Sheets("Feuil1").Range("G5").Value = ""
Sheets("Feuil1").Range("G6:G33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Range("G5").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
End Sub

Si vous avez une autre solution correcte je suis preneur.

Je vous mets un petit fichier simple.

Merci d'avance pour vos réponses et bonne journée.

 

[sylvanu]

Bonjour Xvella,
Peut être avec :

Sub essai()
    [D5:D32] = [B6:B33].Value
End Sub

 

[xvella]

Merci Beaucoup.
C'est parfait.
Bonne fin de journée.