Microsoft 365 Mini macro en VBA

[jderoque]

Bonjour
je souhaite récupérer la valeur d'une case ici F1 : les valeurs texte vont de "01" à "99".
et l' insérer dans le nom d'une image avec le préfixe EMP.
le but, je change la valeur de la case F1 et je modifie la formule du nom de l'image qui va chercher une autre plage nommée EMP_01, EMP_02, etc.
je n'arrive pas a intégrer cela dans la formule.
Une idée?
Merci d'avance


Sub Maj_impression()
'
' Maj_impression Macro
'
Range("F1").Select
ActiveCell.FormulaR1C1 = "01" 'prendre la valeur de la cellule F1 (du texte)

ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.Formula = "=EMP_01" 'integrer la valeur de la cellule dans la formule du type EMP_ la valeur de F1

Range("C9").Select
End Sub

 

[jderoque]

bon j'ai reussi tt seul ca donne ca
Sub Maj_impression()
'
' Maj_impression Macro

Dim valcase As String

valcase = Cells(1, 6)



ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.Formula = "=EMP_" & valcase


Range("a9").Select
End Sub