Voici une autre solution :

Private Sub worksheet_change(ByVal Target As Range)

If Target.Column = 18 Or Target.Column = 19 Or Target.Column = 20 Then
Cells(Target.Row, 22) = Now
End...