Bonjour j'ai pour ambition de faire une macro qui nous met sur une autre feuille selon le résultat de la cellule.

Je pense avoir réussit tout ce qui à été dit mais je sais pas comment faire pour l'insérer dans une autre macro. Car le problème c'est que je veut exécuter cette macro juste après l'enregistrement du résultat.

Je vous donne la macro avec les If:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Worksheet_Change(ByVal Target As Range) 
If Target.Address = "G14" Then 
Select Case Target.Value 
Case Is = A 
 
Ptouché 
 
End If 
 
 
If Target.Address = "G14" Then 
Select Case Target.Value 
Case Is = X 
Ptouché 
 
End If 
 
If Target.Address = "G14" Then 
Select Case Target.Value 
Case Is = O 
Ptouché 
 
End If 
 
If Target.Address = "G14" Then 
Select Case Target.Value 
Case Is = 0 
Peau 
 
End If 
 
If Target.Address = "H10" Then 
Select Case Target.Value 
Case Is = Perdu 
Pover 
 
End If 
End Sub
Que je veux mettre dans la macro suivante:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub Navalrésult() 
' 
' Navalrésult Macro 
' Macro enregistrée le 10/12/2013 par pedago 
' 
 
 
Rows("23:23").Select 
Range("E23").Activate 
Selection.Insert Shift:=xlDown 
Range("G12").Select 
Selection.Copy 
Range("F23").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
:=False, Transpose:=False 
Range("G13").Select 
Application.CutCopyMode = False 
Selection.Copy 
Range("G23").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
:=False, Transpose:=False 
Range("G14").Select 
Application.CutCopyMode = False 
Selection.Copy 
Range("H23").Select 
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ 
False, Transpose:=False 
Range("G14").Select 
Application.CutCopyMode = False 
Selection.Copy 
Range("H23").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
:=False, Transpose:=False 
Range("H26").Select 
 
End Sub
Voilà le but c'est de faire un sorte d'affichage pour le résultat, car c'est une bataille navale et je voulais mettre les touchés, à l'eau et Game Over. C'est plus pour le fun (oui je sais il y a des trucs plus drôle ^^ ) et pour apprendre des trucs.

Voilà en espérant que ma question soit assez clair