Bonjour,
dans la procédure suivante où la case range G1 située sur la feuille nommée "feuille de paie "prend les valeurs de janvier à décembre, je voudrais avec une stucture select case copier la valeur de le cellule D1 (valeur numérique) de la feuille nommée "données" sur la cellule H 36 de la feuille nommée "feuille de paie" et ainsi de suite pour les autres mois. j'ai commencé pour les 2 premiers mois mais rien ne fonctionne.Etant donné que c'est le première fois que j'utilise select case ,j'ai des difficultés pour mettre en route la procédure. Est ce que je peux le faire à l'aide d'une macro au lieu de lancer la procédure à l'activation de la feuille

Private Sub Worksheet_Activate()
Select Case Range("G1")
Case "A"
[données!D1] = [feuilledepaie!H36]

Case "B"
[données!D2] = [feuilledepaie!H36]
End Select
End Sub

Merci