Private Sub Worksheet_Activate()
Dim celluleD As Range
Dim Numero_Plan As String, Revision As String
For Each celluleD In Range([D2], [D2].End(xlDown))
Numero_Plan = Split(celluleD, "-")(0)
Revision = Split(celluleD, "-")(1)
If Revision <> "A" Then
celluleD.Offset(0, -2) = Numero_Plan & "-" & Chr(Asc(Revision) - 1)
celluleD.Offset(0, -3) = celluleD.Offset(0, -1)
End If
Next
End Sub