Private Sub Worksheet_Change(ByVal Target As Range)
Dim Pluriel As String
'Si l'on ce trouve dans la colonne D
If Target.Column = 4 Then
'Si D16 >1 on prévoit le rajout du s
If Range("D16") > 1 Then Pluriel = "s"
'Prise en main gestion d'erreur si feuille n'existe pas
On Error Resume Next
'Sélection de la feuille choisie
Sheets(Range("D16") & " couche" & Pluriel).Select
' Si numéro d'erreur alors affiche message
If Err.Number > 0 Then MsgBox "La feuille " & Range("D16") & " couche" & Pluriel & " n'est pas dans ce classeur"
'Redonne le controle erreur au système
On Error GoTo 0
End If
End Sub