Bonsoir,

J'ai une erreur sur ce code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (B4 = "") Then
ActiveSheet.Name = "Fiche Vierge"
Else
ActiveSheet.Name = Range("B4").Value
End If
End Sub
Si la cellule B4 est vide le nom de la feuille doit être "fiche vierge" sinon le nom de la feuille est la valeur de la cellule B4! L'erreur doit etre sur la ligne 3 je pense.