Compiler deux codes VB?

C'est possible de compiler ces deux parties de code?

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub '<-- pour éviter que ça coince si on sélectionne plusieurs cellules

If Target.Column = 5 Then

Target.Value = StrConv(Target.Value, 1)

End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub '<-- pour éviter que ça coince si on sélectionne plusieurs cellules

If Target.Column = 4 Then

Target.Value = StrConv(Target.Value, 3)

End If

End Sub

Merci !

Bonjour,

essaie comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub '<-- pour éviter que ça coince si on sélectionne plusieurs cellules
If Target.Column = 5 Then
Target.Value = StrConv(Target.Value, 1)
ElseIf Target.Column = 4 Then
Target.Value = StrConv(Target.Value, 3)
End If
End Sub

Amicalement

Dan

SUPER !! C'est cool et ça marche du tonnerre! Merci