Actualiser une 2ème cellule

Bonsoir à tous,

J'utilise ce code pour actualiser une cellule.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, [Q13:Q22]) Is Nothing Then Feuil65.Range("I1") = Target.Offset(0, -9)

End Sub

J'aimerais actualiser une 2ème cellule qui se trouve en N1 (0, -14)

J'ai tout essayer mais je ni suis pas arriver.

Merci d'avance de votre aide

Balance58

Bonjour

Pourquoi ne pas continuer ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [Q13:Q22]) Is Nothing Then Feuil65.Range("I1") = Target.Offset(0, -9) : Feuil65.Range("N1") = Target.Offset(0, -14)
End Sub

Bonsoir Banzai64 et le Forum,

Merci pour ton code, j'avais tout essayer sauf celui la.

Encore merci et bonne soirée à toi et au Forum.

Balance58