Sub VATRefund()
Dim NumerodeTVA As Double ' le parametre est un réel et non un texte
0: On Error Resume Next ' si on met pas ça, ça bug
NumerodeTVA = InputBox("Saisissez le numéro de TVA")
1: If NumerodeTVA = 0 Then Exit Sub
Range("e12") = NumerodeTVA
2: ' Pas compris
3: Range("c20") = "blabla1"
4: Range("c21") = "blabla2"
End Sub