Etendre la selection du code aux colonnes suivantes

Question

Le code suivant donné sur ce forum fonctionne parfaitement: Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("B3:B29")) Is Nothing Then If Target = "TB" Then Target.Offset(0, 1).Value = 6 If Target = "B" Then Target.Offset(0, 1).Value = 4 If Target = "P" Then Target.Offset(0, 1).Value = 3 If Target = "I" Then Target.Offset(0, 1).Value = 1 End If End Sub Cependant je souhaite l'étendre aux colonnes suivante E, G, etc J'ai essayé ceci mais ca fonctionne pas : Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range(" B3:B29;E3:E24 ")) Is Nothing Then If Target = "TB" Then Target.Offset(0, 1).Value = 6 If Target = "B" Then Target.Offset(0, 1).Value = 4 If Target = "P" Then Target.Offset(0, 1).Value = 3 If Target = "I" Then Target.Offset(0, 1).Value = 1 End If End Sub un peu d'aide SVP Merci...

Amadéus · Answer

J'ai répondu sur l'autre post https://forum.excel-pratique.com/excel/selection-automatique-de-valeurs-t33846.html Cordialement...