Adapter un code a plusieurs feuilles

Bonjour

J'ai ce code qui fonctionne bien sur une feuille ,j'aimerais pouvoir l'adapter a plusieurs feuilles .

Comment procéder?

Je vous remercie

Private Sub WorkSheets_Change(ByVal Target As Range)

If Not Intersect(Target, Range("B5:B25")) Is Nothing Then

Target.Offset(0, -1) = Date

End If

If Not Intersect(Target, Range("K5:K25")) Is Nothing Then

Target.Offset(0, -10) = Date

End If

End Sub

C'est bon j'ai trouvé

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

'code conditions

End Sub

Bonjour Joco7915

Merci de chercher un peu avant de poste SVP

Question postée à 12h02, solution trouvée à 12h10... je pense que vous allez trop vite dans votre demande d'aide