Microsoft 365 VBA - Dupliquer une plage de données selon une valeur

Bonjour MarinaF

Voici un exemple de ce qu'on peut faire

Code à mettre dans "Feuil1", pour y accéder ALT+F11 et double clique sur le nom

@+

Merci BrunoM45 !
C'est quasi ce que je cherchais. Le problème que j'ai, c'est la fonction Insert. Elle décale toutes les lignes et me change le format de mes celleules. Et vu que mon fichier va être protéger pour les autres utilisateurs, cela ne fonctionne plus...
Par quoi puis-je remplacer Insert ? pour que cela me copie que le contenu des cellules sans la mise en forme et si je fichier est protégé ?

De rien Marina,

Mais sans "insert" n'y a t'il pas un risque d'écraser des données existantes

@+

Je vais vous expliquer un peu plus en détail comment mon tableau fonctionne peut-être.

En fait, le chiffre 24 correspond à la période de mardi à jeudi. (11 = lundi, 22 = mardi 33= mercredi et etc).

Dans mon tableau, je rentre différentes prestations par jour.
La colonne "Module" est le type de prestation, "Tps module" est le temps qui est nécessaire pour cette prestation (il y a une formule qui reprend automatiquement le temps selon le type de prestation), "heure" est l'heure à laquelle la prestation est effectué et "corr." est un taux de correction. Il peut y avoir jusqu'à 12 prestations par jour et par ligne donc.

Parfois, les prestations sont les même du mardi au jeudi par exemple, et il faut recopier toutes les données de "Module", "heure" et "Corr." à la main. (Ces données sont dans un programme externe que je ne peux pas avoir directement dans Excel). Il n'est pas possible de faire un copier/coller de la ligne à cause de mes colonnes "Tps module" qui contient une formule qui est protégée.

Je voulais donc une méthode pour dupliquer les données quand elles sont les même sur plusieurs jours consécutifs. Etant donné que les cellules sont à remplir, je ne pense pas qu'il y a de risque d'écraser des données. (Je peux me tromper mais je ne pense pas)

Rebonjour à tous !

Au final, j'ai procédé de la manière suivante :

Sub VP()

If Range("b4") = 24 Then
Range("c4:ax4").Select
Selection.Copy
Range("c5:ax6").Select
Selection.PasteSpecial xlPasteFormulasAndNumberFormats

End If
End Sub

Le problème que je rencontre maintenant, c'est une colonne sur 3 (la colonne D qui correspond à "Tps module" contient une formule. Selon la valeur de la colonne précédente, elle va afficher un temps.
J'ai absolument besoin que personne ne touche à cette formule, et j'ai donc protégé ma feuille.
Le problème, c'est que à cause de sa ma macro ne fonctionne plus...
Du coup, je pensais sélectionner uniquement les cellules à modifier de cette manière :

Sub VP()

If Range("b4") = 24 Then
Range("c4", "e4:g4").Select
Selection.Copy
Range("c5", "e5:g5").Select
Selection.PasteSpecial xlPasteFormulasAndNumberFormats

End If
End Sub

Mais, ça ne fonctionne toujours pas, j'ai toujours la fenêtre pop-up qui s'ouvre pour m'indiquer que des cellules sont protégées et qu'il me faut un mot de passe.

Avez-vous une solution à me proposer ?

Merciiiii