Erreur d'exécution 13

[La Vouivre]

Bonjour les Amis
j'ai une macro qui fonctionne très bien ,que j'ai déjà copié sur le forum, qui me nomme l'onglet suivant la valeur d'une cellule .
Cette macro bug lorsque je cherche à utiliser la poignée droite d'une cellule pour la recopier en bas , même avec une cellule vide.
Comment faire pour que la macro accepte l'erreur 13
Je vous mets un fichier pour la démo de l'erreur
merci à tous pour ce super forum qui nous fais tous avancer
bonne soirée

 

[Robert]

Re : Erreur d'exécution 13

Bonsoir la Vouivre, bonsoir le forum,

Rajoute une ligne au code initial :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Address = "$P$1" And Target.Value <> "" Then ActiveSheet.Name = Target.Value
End Sub

 

[La Vouivre]

Re : Erreur d'exécution 13

Merci beaucoup pour la rapidité de la réponse, c'est exactement ce que je cherchais ,ça marche au poil .
Encore un grand merci Mr ROBERT
Bonne soirée