Bonjour
Code vba a mettre dans la feuil concernée
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Range
Dim multiplier As Double
' Vérifiez si la cellule sélectionnée est dans la plage B2:H5
If Not Intersect(Target, Me.Range("B2:H5")) Is Nothing Then
' Vérifiez si D9 contient un nombre
If IsNumeric(Me.Range("D9").Value) Then
multiplier = Me.Range("D9").Value
' Multipliez la valeur de la cellule sélectionnée par le nombre de D9
For Each cell In Target
If IsNumeric(cell.Value) Then
cell.Value = cell.Value * multiplier
End If
Next cell
Else
MsgBox "La cellule D9 doit contenir un nombre.", vbExclamation
End If
End If
End Sub